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Abstract 


The  Vulnerability  Model  (VM)  is  a  computer  model  which  simulates  hazardous 
materials  spills  and  computes  the  consequences  to  people  and  property  from 
resulting  fires,  explosions,  or  toxic  vapors.  This  report  describes  recent 
work  performed  to  prepare  tho  VM  for  operational  use.  Four  specific  tasks  or 
developments  are  described: 

^^Development  of  the  User  Interface  Module  (UIM) ,  an  easy-to-use  conversational 
program  which  enables  inexperienced  or  occasional  users  to  set  up  and  run  VM 
I  simulations  easily  and  reliably  with  little  or  no  training, 

jfc 5) Development  of  a  series  of  VM  output  display  routines  whi^n  display  the  results 
of  VM  simulations  on  CRT  terminals  or  hard  copy  plotters; 

^^Development  of  ready-to-use  Geographical/Demographic  files  for  Los  Angeles  and 
S  New  York  Harbors  (a  file  for  New  Orleans  already  exists), 

W'typetfoxia&nce  of  a  number  of  VM  spill  simulations  for  selected  chemicals  in  Los 
*  /Angeles*and  New  York  Harbors  to  operationally  test  the  UlM/VM  system  and  to 
provide  a  hazard  ranking  of  the  selected  chemicals. 
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PREFACE 


The  Vulnerability  Model  (VM) ,  a  computer  model  developed  by  Enviro 
Control,  Inc.  for  the  U.S.  Coast  Guari,  simulates  the  development  of 
hazardous  materials  spills  and  computes  the  consequences  to  people  and 
property  from  resulting  fires,  explosions,  or  toxic  vapors.  It  is  being 
developed  as  a  major  component  of  the  U.S.  Coast  Guard  Risk  Management 
System  for  evaluating  the  cost-benefits  of  alternate  means  for  reducing 
the  risks  and  consequences  of  marine  accidents  involving  hazardous  mate¬ 
rials.  Recently  the  U.S.  Coast  Guard  has  adopted  Population  Vulnerability 
Model  (PVM)  as  the  official  name  for  the  model.  This  change  has  not  been 
incorporated  in  this  report  and  VM  is  used  throughout,  a  name  which  is 
synonymous  with  PVM. 

The  VM  has  undergone  a  phased  development.  This  report  describes  the 
work  under  the  latest  phase,  which  is  to  prepare  the  VM  for  operational 
use.  The  work  was  performed  under  the  overall  technical  direction  of 
Or.  Michael  C.  Parnarouskis ,  the  U.S.  Coast  Guard  Project  Officer,  wh 
must  be  given  credit  for  the  basic  operational  concepts  developed  and  in¬ 
corporated  in  the  VM  and  reported  here.  Particular  mention  is  made  of  his 
role  in  the  design  of  the  User  Interface  Module  (UIM) ,  a  valuable  addition 
to  the  VM  which  transforms  the  highly  complex  VM  simulation  into  an  easy- 
to-use  analytical  tool. 

Acknowledgement  is  made  also  of  the  contribution  of  Dr.  Alan  L. 
Schneider  who  assisted  in  selection  of  the  chemicals  for  simulation  and 
provided  data  on  the  characteristics  and  transportation  of  hazardous 
chemicals. 

Finally,  the  efforts  of  John  Reneert  and  Dr.  Chi  K.  Tsao  are  gratofully 
acknowledged.  Mr.  Reomert  programmed  the  initial  version  of  the  Users 
Interface  Module,  and  Dr.  Tsao  did  much  of  the  work  on  the  displays  and 
contributed  substantially  to  their  documentation  in  Chapter  XXX. 
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Chapter  1 

INTRODUCTION  AND  SUMMARY 


A .  INTRODUCTION 

This  report  describes  the  work  performed  during  the  past  year  to 
prepare  the  U.S.  Coast  Guard  Vulnerability  Model  (VM)  for  operational 
use.  Four  specific  tasks  were  carried  out: 

•  Development  of  the  User  Interface  Module  (UIM) ,  an  easy-to-use 
conversational  program  which  enables  inexperienced  or  occasional 
users  to  set  up  and  run  VM  simulations  easily  and  reliably  with 
little  or  no  training. 

•  Development  of  a  series  of  VM  output  display  routines  which 
display  the  results  of  VM  simulations  on  CRT  terminals  or 
hard  copy  plotters. 

•  Development  of  ready-to-use  Geographical/Demographic  files  for 
Los  Angeles  and  New  York  Harbors  {a  file  for  New  Orleans  al¬ 
ready  exists) . 

•  Performance  of  a  number  of  VM  spill  simulations  for  selected 
chemicals  in  Los  Angeles  and  New  York  Harbors  to  operationally 
test  the  UXM/VM  system  and  to  provide  a  hazard  ranking  of  the 
selected  chemicals. 

The  accomplishments  of  the  four  tasks  are  summarised  in  the  Summery 
section  of  this  chapter  and  are  described  in  detail  in  the  following  chap¬ 
ters  (Chapters  2  through  5) .  Appendix  A  gives  a  brief  description  of  the 
Vulnerability  Model  (VM)  for  readers  unfamiliar  with  its  characteristics 
and  its  use.  More  complete  information  on  the  VM  is  provided  in  refer¬ 
ences  CD  through  (5). 


(1]  Eisenberg,  N.  A.,  C.  J.  Lynch,  and  R.  3.  Breeding,  Vulnerability  Model: 
A  Simulation  System  for  Assessing  Damige  Resulting  from  Marine  Spills, 
Final  Report,  CG-D-136-75,  NT is  AD-A015  245,  prepared  by  Enviro  Con¬ 
trol,  Inc.,  for  Department  of  Transportation,  U.S.  Coast  Guard,  June 
1975. 

(2]  Rausch,  A.  H.,  N.  A.  Eieenberg,  and  C.  J.  Lynch,  Continuing  Development 
of  the  Vulnerability  Model...,  Final  Report,  prepared  by  Enviro  con¬ 
trol,  Inc.,  for  Department  of  Transportation,  U.S.  Coast  Guard,  Febru¬ 
ary  1977. 

(3]  Rausch,  A.  H.,  C.  K.  Tsao,  and  R.  H.  Rowley,  Third-Stage  Development 
of  the  Vulnerability  Model...,  Final  Report,  prepared  by  Enviro  Con¬ 
trol,  Inc.,  for  Department  of  Transportation,  U.S.  Coast  Guard,  June 
1977. 

(4]  Rowley,  R.  M. ,  and  A.  B.  Rausch,  vulnerability  Model  User's  Guide, 
Enviro  Control,  Inc.,  October  1977. 

(5]  Tsao,  C.  K. ,  and  w.  w.  Perry,  Modifications  to  the  Vulnerability 
Modal...,  Final  Report,  prepared  by  Enviro  Control,  Inc.,  for  Depart¬ 
ment  of  Transportation,  U.S.  Coast  Guard,  March  1979. 


This  section  presents  a  brief  summary  of  each  of  the  four  study  tasks. 
Following  the  task  summaries  is  a  summary  of  additional  VM  program  modifi¬ 
cations  that  were  made  to  improve  the  utility  of  the  VM  output  tables  and 
to  correct  VM  logic  errors  that  were  found  during  the  course  of  the  work. 

1.  User  Interface  Module  (VIM) 

The  UIM  has  been  designed  and  developed  to  meet  general  specifications 
defined  by  the  U..S.  Coast  Guard.  It  is  a  conversational  program  which 
interacts  with  the  user  to  help  prepare  the  inputs  and  the  files  needed  to 
run  the  VM.  Although  it  is  a  separate  program  from. the  VM,  it  is  linked  to 
the  VM  and  all  instructions  and  commands  needed  to  run  the  VM  are  provided 
through  the  UIM.  Instructions  and  explanatory  material  are  built  into  the 
UIM  so  that  the  program  is  essentially  self-explanatory  and,  in  general,  a 
user's  manual  is  not  needed  to  use  the  UIM.  An  abbreviated  version  of  the 
file  preparation  conversation  is  provided  in  addition  to  the  detailed  in¬ 
structional  version,  to  enable  the  more  experienced  users  to  run  VM  simu¬ 
lations  in  as  short  a  time  as  possible.  Figure  1-1  is  a  flow  diagram  of 
the  UIM  illustrating  its  principal  features  and  the  key  user  optic  's. 

A  key  feature  of  the  UIM  is  its  ability  to  augment  the  data  provided 
by  the  user,  with  information  from  its  internal  files,  to  provide  a  com¬ 
plete,  consistent,  and  correctly  formatted  set  of  inputs  for  the  VM.  This 
internal  data  is  data  that  is  dependent  on  basic  scenario  inputs  but  is 
particularly  difficult  for  the  user  to  acquire*  e.g.,  flame  speeds, 
probit  coefficients.  These  data  have  been  prepared  in  advance  and  placed 
in  the  internal  UIM  Chemical  Properties  file.  The  UIM  can  perform  VM 
simulations  only  for  those  chemicals  which  have  been  inserted  in  the  UIM 
and  checked  out  in  advance.  Currently,  there  are  27  hazardous  chemical 
property  sets  incorporated  in  the  UIM  (see  Table  2-2  in  Chapter  2) . 

To  validate  its  operational  effectiveness,  the  UIN/VH  system  has  been 
successfully  exercised  by  engineering-oriented  personnel  with  no  VM  or 
computer  experience.  A  User's  Operational  Manual  has  been  published  which 
gives  complete  instructions  on  how  to  access  and  operate  the  UIM  (6] .  In¬ 
cluded  in  the  manual  is  a  section  which  explains  and  interprets  the  VN 
output  tables. 

The  UIM  program  documentation  is  provided  in  Chapter  2  below.  This 
includes  the  program  information  needed  for  maintaining  and  updating  the 
UIM  as  required  to  incorporate  additional  chemicals  or  user  aids. 


(6)  Enviro  Control,  Inc.,  User  Interface  Module  (VIM)  (or  V.S.  Coast  Guard 
Vulnerability  Model  (VM):  Draft  User's  Operational  Manual,  prepared 
for  Department  of  Transportation,  U.S.  Coast  Guard,  June  1979. 


FIGURE  1-1.  Structure  of  the  UIH 


2.  Graphical  Displays 


Graphical  routines  have  been  developed  to  display  the  major  results  of 
the  VM  simulation  on  CRT  terminals  or  hard  copy  plotters.  Thirteen  spe¬ 
cific  output  displays  have  been  developed,  namely i 

e  Four  isoconcentration  displays 

—  irritation*  threshold  for  puff  and  plume 

—  lower  flamnability  limit  for  puff  and  plume 

•  Four  injury**  displays 

—  toxic  injury  for  puff  and  plume  (outdoors) 

—  flash  fire  and  explosion  injury 

•  Four  lethality***  displays 

toxic  lethality  for  puff  and  plume  (outdoors) 

—  flash  fire  and  explosion  lethality 

e  One  structural  damage  display 

All  displays  are  in  the  form  of  isoconcentration  or  isofractional  damage 
contours  overlaid  on  a  schematic  map  of  the  geographical  cells.  Thus,  the 
user  obtains  a  visual  accounting  of  which  cells  are  affected,  and  to  what 
degree. 

An  additional  feature  of  the  displays  is  the  option  of  changing  spill 
location,  wind  direction,  or  ignition  center  (where  applicable)  interac¬ 
tively  without  having  to  rerun  the  VN  parametrically.  This  permits  users 
to  economically  and  rapidly  estimate  the  effect  on  damage  of  changes  in 
these  parameters. 

To  incorporate  the  displays,  the  VM  has  been  modified  with  the  addi¬ 
tion  of  six  new  subroutines.  At  the  user  Vs  option,  the  display  data  are 
generated  during  the  VN  simulation  and  stored  in  a  VN  output  file  which  can 
be  called  up  and  displayed  anytime  the  user  desires.  Chapter  3  below  de¬ 
scribes  the  display  routines  and  their  derivations  and  give;  instructions 
on  how  to  use  the  displays. 


•"Irritation**  is  a  discomforting  but  non  incapacitating  impairment. 
••  Injury**  is  an  lupalroent  requiring  hospitalization. 

**•  “Lethality"  implies  ime-  ate  and  lasting  total  incapacitation. 


3.  Geographical /Demographic  Files * 

A  methodology  has  been  developed  for  generating  Geographical/Demo¬ 
graphic  files  to  satisfy  arbitrary  specifications  on  the  number  of  cells 
and  the  general  location  of  the  file.  The  key  element  of  the  methodology 
is  a  computer  program  which  searches  the  census  MHJList  tape  and  identi¬ 
fies  all  census  block  groups  that  are  located  within  a  quadrilateral 
defined  by  a  central  point  plus  and  minus  a  Ax  and  a  Ay.  The  user  ini¬ 
tially  inputs  the  quadrilateral  which  encompasses  the  appropriate  area  ne 
is  interested  in.  He  then  examines  the  results  and  repeats  the  process 
with  a  modified  quadrilateral  until  he  obtains  the  number  of  cells  desired 
for  the  file.  The  maximum  size  of  the  Geographical/Demographic  file  that 
can  be  processed  by  the  VM  is  400  cells. 

To  reduce  file  generation  cost  and  to  overcome  tape  reading  problems 
caused  by  differences  in  IBM  and  CDC  software,  intermediate  MEDList  tapes 
have  been  created  which  contain  only  those  portions  of  the  MEDList  encom¬ 
passing  the  harbor  areas  of  interest.  These  intermediate  files  are  then 
searched  as  described,  to  create  the  specific  file  limited  to  the  parti¬ 
cular  area  and  number  of  cells  desired. 

Intermediate  MEDList  files  were  created  for  the  New  York  City  and  Los 
Angeles  areas.  Three  Geographical/peaographic  files,  each  containing 
slightly  less  than  400  cells,  were  then  created  for  the  two  cities;  one 
for  Los  Angeles  Harbor  (San  Pedro/Long  Beach  and  the  area  immediately 
north  of  the  harbor)  and  two  for  New  York  Harbor  (the  Perth  Amboy  vicinity 
and  the  Lower  Brooklyn/Coney  Island  area) .  Together  with  the  New  Orleans 
Geographical/Deaographic  file,  there  are  now  four  ready-made  Geographical/ 
Demographic  files  available  for  VH  users. 

Chapter  4  of  this  document  describes  in  detail  the  generation  and  the 
characteristics  of  the  Geographical/Demographic  files. 


•The  Geographical/Deaographic  file  consists  of  a  file  of  census  block 
groups  or  enumeration  districts  for  a  given  geographical  area,  for  each 
cell  (census  block  group/enumeration  district)  in  the  file,  the  identi¬ 
fier,  latitude  and  longitude  of  the  cell  center,  the  population,  the  num¬ 
ber  of  structures  within  the  cell,  dollar  value  per  structure,  and  igni¬ 
tion  strength  of  the  cell  a s*  specified. 


4.  Spill  Simulations 

To  check  out  and  test  the  UIM/VM  system  and  the  newly  generated  Geo¬ 
graphical/Demographic  files,  a  number  of  spill  simulations  were  run  for  a 
variety  of  chemicals  and  spill  scenarios  at  the  New  York  and  Los  Angeles 
Harbors.  The  purpose  of  these  simulations  was  twofold.  In  addition  to 
validating  the  UIM/VM  system,  the  simulations  provide  a  means  of  evaluat¬ 
ing  or  ranking  the  relative  hazard  potential  of  a  series  of  hazardous 
cargoes  selected  by  the  U.S.  Coast  Guard. 

The  cargoes  that  were  selected  for  simulation  are  listed  in  Table  1-1. 
These  chemicals  were  chosen  in  part  by  an  analysis  of  hazard  properties 
(e.g.,  toxicity,  flammability),  and  in  part  by  consideration  of  shipment 
volumes.  For  the  toxic  chemicals,  the  probit  coefficients  were  derived 
from  an  analysis  of  toxicity  and  health  effects  data  in  the  literature, 
and  for  all  the  chemicals,  the  chemical/physical  data  needed  for  the  UIM 
files  was  prepared  and  incorporated  in  the  UIM. 

Three  spill  sites  were  selected  (two  for  New  York  and  one  for  Los 
Angeles)  and  for  each  a  standard  environmental  scenario  was  defined  which 
was  used  for  all  chemicals.  Table  1-2  defines  the  spill  scenarios  for 
each  spill  site.  The  only  differences  in  spill  simulations  between  chemi¬ 
cals  (other  than  the  chemical  properties)  was  in  the  cargo  characteristics. 
Tank  capacities  (and  associated  temperatures  and  pressures)  were  selected 
for  each  chemical  which  correspond  to  the  maximum  tank  size  that  is  cus¬ 
tomarily  transported  by  water  for  that  chemical.  Table  1-1  gives  the  tank 
capacities  assumed  for  each  chemical  cargo.  For  all  cargoes,  the  identical 
rupture  characteristics  were  simulated  (hole  size  and  location) .  Due  to 
the  different  tank  capacities  the  size  of  the  spill  varies  with  chemical, 
but  the  simulations  are  all  consistent  in  that  they  represent  the  maximum 
amount  that  can  be  spilled  from  a  specified  type  of  rupture  in  a  single 
tank. 


The  simulations  were  initially  run  by  experts  for  the  Perth  Amboy  sce¬ 
nario  to  check  out  the  UIM/VM,  system  operation.  Based  on  an  analysis  of 
the  results,  errors  and  problems  in  the  system  were  found  and  corrected. 
Then  the  simulations  for  the  remaining  scenarios  were  run  by  novices  with 
a  minimum  of  training  and  assistance.  These  latter  exercises  were  com¬ 
pleted  successfully  and  demonstrated  the  operational  acceptability  of  the 
UIM. 


The  results  of  the  simulations  were  carefully  analyzed  for  the  purpose 
of  ranking  the  relative  hazards  of  the  15  chemicals.  Table  1-3  sunmarizes 
the  results  of  this  ranking.  The  15  chemicals  fall  into  four  hazard  cate¬ 
gories  and  seven  hazard  rankings. 


TABLE  1-1 

Simulation  Scenario  Cargo  Characteristics 


CHEMICAL  NAME 

CODE 

— mr — 

CAPACITY 

(is*) 

fMIK '  "l 

HEIGHT 

(m) 

— mse — 

PRESSURE0 

(atm) 

CJwW  . 

TEMPERATURE® 

(*C) 

HAZARD® 

Acetaldehyde 

AAD 

3,000 

15 

1 

(C) 

Ambient 

F 

Acrylonitrile 

ACN 

3,000 

15 

1 

(C) 

Ambient 

T 

Ammonia  (Anhydrous) 

AMA 

10,000 

20 

1 

(V) 

-33 

T 

Chlorine 

CLX 

182 

? 

1 

tv> 

-33 

T 

Dime thy lamine 

DMA 

3,000* 

IS 

2.5 

(C) 

Ambient 

F 

Ethyl  other 

EET 

3,000* 

15 

1 

(C) 

Ambient 

F 

LUG 

LNG 

25,000 

22 

1 

(V) 

•141 

F 

LEG 

LPO 

10,000 

20 

1 

(V) 

-40 

F 

Methyl  bromide 

NTB 

3,000 

15 

1 

(C) 

4 

T 

Methyl  ohlori.de 

MTC 

3,000* 

17 

1 

(V) 

-24 

F 

Octene 

OAN 

4,000 

17 

1 

<C) 

Aatblent 

F 

Pentane 

PTA 

4,000 

17 

1 

(C) 

Ambient 

r 

Propylene  oxide 

POX 

3,000 

15 

1 

<C) 

Ambient 

t,r 

Toluene 

TOL 

4,000 

17 

1 

(C) 

Ambient 

T 

Vinyl  chloride 

VCH 

4,000 

17 

1 

<V) 

-14 

r 

For  ail  chtmlcalai  fraction  f 111*4  ■  O.H 
hoU  dltmet.'r  "2m 

height  of  centerline  above  waterline  •  1  • 
height  of  hole  hot toe  above  tank  bottoe  *  0 

* (C)  •  doted  tank)  (V)  •  vented  tank 

Ambient  »  tea  temperature 

°r  •  flaeh  flre»  t  •  tonic 

Double  tank  capacity  (4,000  ■*)  vat  alto  simulated  for  theta  three  caaaa. 
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TABLE  1-3 

Results  of  Hazard  Ranking 


HAZARD 

CATEGORY 


DESCRIPTION  OF 
CATEGORY 


CHEMICAL 


Most 

Hazardous 


Many  thousands  of 
casualties  for 
all  scenarios 


Chlorine 


Very 

Hazardous 


Appreciable 
casualties  for 
all  scenarios 


LNG 

LPG 

Methyl  Bromide 


Ammonia 


HAZARD 

RANKING 


1 


2 

2 

2 


3 


Hr  ardous 


Casualties  only 
under  extreme 
conditions  (high 
atmospheric 
stability  and 
close-  n  3pilla) 


Vinyl  Chloride 
Pentane 

Methyl  Chloride 
Toluene 
Ethyl  Ether 


4 

4 

5 

5 

6 


Octane 


7 


Relatively 

Nonhazardous 


No  casualties  or 
damage  under  any 
of  the  scenarios 


Dimethylamine 

Acetaldehyde 

Acrylonitrile 


7 

7 

7 


Propylene  Oxide 


7 


Chlorine  is  by  far  the  most  casualty-producing  under  all  scenario  con¬ 
ditions,  even  though  it  had  the  least  quantity  spilled.  LNG,  LPG  and  methyl 
bromide  are  ranked  next,  and  no  appreciable  difference  could  be  distin¬ 
guished  between  them.  The  next  six  chemicals  produced  casualties  only  for 
one  of  the  three  scenarios.  This  was  the  scenario  of  highest  atmospheric 
stability  (F)  and  of  closest-in  spill  (400  meters  to  closest  downwind  popu¬ 
lation  cell) .  These  six  chemicals  are  ranked  as  shown  based  on  the  number 
of  casualties.  Finally,  five  chemicals  produced  no  casualties  under  any 
conditions  and  were  ranked  as  relatively  nonhazardous .  Of  these,  all  are 
highly  soluble  except  for  octane,  which  is  of  low  volatility. 

Several  observations  are  evident  from  an  examination  of  the  simulation 
results: 

•  As  might  be  expected,  soluble  chemicals  generally  do  not 
result  in  any  casualties  or  damage.  The  spilled  material 
rapidly  goes  into  solution  which  reduces  the  vapor  concen¬ 
tration  at  downwind  cells  below  hazardous  levels  for  both 
toxic  and  flammable  materials.  An  exception  to  this  is 
ammonia  whi  h  is  highly  volatile  and  which  was  spilled  in  a 
relatively  large  quantity  (10,000  m3) . 

•  For  insoluble  chemicals,  the  most  hazardous  are  those  that 
are  highly  volatile. 

•  The  insoluble  chemicals  having  the  lower  volatilities  re¬ 
sulted  in  casualties  only  at  Perth  Amboy.  This  was  due  to 
the  higher  atmospheric  stability  (class  F  vs.  class  D)  and 
the  shorter  distance  between  the  population  and  the  spill 
site  at  Perth  Amboy  versus  the  Coney  Island  or  Los  Angeles 
scenarios. 

•  For  the  most  hazardous  chemicals,  the  Coney  Island  scenario 
resulted  in  the  mo3t  casualties.  This  was  due  primarily  to 
the  higher  population  density  in  the  Coney  Island  area  rela¬ 
tive  to  the  other  two  areas. 

The  spill  simulations  and  their  results  are  fully  described  and  dis¬ 
cussed  in  Chapter  5. 
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5.  Additional  VM  Program  Modifications 

in  the  process  of  performing  the  four  tasks  summarized  above*  a  number 
of  imperfections  and  errors  in  the  VM  program  were  found  and  corrected. 

Of  particular  importance  was  the  cleanup  and  clarification  of  the  VM  out¬ 
put  tables  to  make  the  tables  more  understandable  and  easy  to  interpret 
for  the  UIM  user.  Also  of  major  importance  was  the  correction  of  a  number 
of  logic  errors  that  were  discovered  during  the  running  of  the  simulations 
in  Task  4. 

Listed  below  are  the  major  cosmetic  and  logic  modifications  that  were 
made  to  the  VM  program  during  the  performance  of  the  contract.  All  of 
these  modifications  have  been  incorporated  in  the  latest  version  of  the 
VM  (i.e.,  cycle  IS)  which  is  available  through  SCOPE  disk  or  on  tape.  See 
Chapter  6  for  information  on  accessing  the  VM  program. 

a.  Modifications  to  VM  output  tables 

(1)  Suppressed  the  “loader  map"  printout  that  precedes  the 
VM  output  tables. 

(2)  Removed  the  time-incremented  "radiation  flux"  tables 
that  have  not  been  used  since  the  modification  of  the 
flash  fire  model. 

(3)  Provided  for  optional  suppression  of  the  vapor  cloud 
concentration  tables  in  ppm  units.  These  tables  are 
redundant  since  the  concentration  is  also  given  in 
kg/oJ  units. 

(4)  Suppressed  the  ignition  output  table  for  toxic  runs 
(the  data  are  meaningless  for  toxic  simulations) . 

(5)  Printed  the  cloud  dispersion  coefficients,  <?y  and  aa, 
for  plume  as  well  as  puff  runs  in  the  ignition  output 
tables. 


(6)  Suppressed  all  damage  tables  for  cells  in  which  the 
values  were  all  zero.  For  large  Geographical  files 
of  the  order  of  400  cells,  this  reduces  significantly 
the  time  and  amount  of  computer  printout. 

b.  Logic  corrections  to  the  VM  program 

(1)  Corrected  an  error  in  the  inside  dosage  computation. 
The  dosage  was  originally  given  in  ppm-sec  and  was 
corrected  to  ppta-oin. 

(2)  Corrected  an  error  in  air  temperature  variable  which 
was  caused  by  mistyping  of  the  variable's  symbol. 


(3)  Corrected  an  error  in  the  flash  fire  model  that  had 
resulted  in  the  miscomputation  of  the  size  of  the  fire¬ 
ball  due  to  use  of  incorrect  vapor  density. 

(4)  Revised  the  flash  fire  model  to  improve  the  accuracy  by 
calling  for  the  input  of  both  the  surface  flame  temper¬ 
ature  and  the  flame  speed. 

(5)  Corrected  errors  in  the  secondary  fires  flag  assignment 
logic  which  caused  the  aborting  of  certain  VM  output 
tables  under  certain  file  status  conditions. 

(6)  Corrected  the  logic  error  in  subroutine  PATH  which  as¬ 
signed  an  incorrect  model  to  some  immiscible  chemicals 
(such  as  ether). 

(7)  Revised  the  venting  model  to  reduce  the  possibility  of 
computational  error  (numerical  overflow)  under  adiabatic 
tank  conditions. 

(8)  Incorporated  a  bypass  option  which  enables  the  user  to 
circumvent  the  venting ,  spreading,  and  evaporation  sub¬ 
routines  and  go  directly  to  the  air  dispersion  model, 
Model  C.  This  option  supersedes  the  Path  Override 
option  when  it  is  selected. 

(9)  Modified  the  integration  time  for  toxic  damage  to  the 
lesser  of  the  total  evaporation  time  or  the  user  input 
"time  the  computations  are  to  be  made",  VM  field  numbers 
6001,  6004,  or  6007.  This  enables  the  user  to  specify 
an  evacuation  time  through  specification  of  the  time 
sequence  variables.  This  is  particularly  important  for 
chemicals  with  low  volatility  which  take  many  hours  or 
days  to  evaporate. 
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Chapter  2 

USER  INTERFACE  MODULE 


A.  INTRODUCTION 

The  User  Interface  Module  (UIM)  is  a  computer  program  specifically  de¬ 
signed  for  use  by  personnel  with  little  or  no  computer  experience.  By 
interacting  with  the  user  in  an  easy-to-understand  conversational  mode, 
the  UIM  helps  the  user  set  up  spill  problems  for  the  Vulnerability  Model 
(VM)  and  then  automatically  runs  the  VM  to  simulate  the  spills.  The  UIM 
feeds  data  to  and  controls  the  VM,  and  serves  as  the  interface  between  the 
VM  and  the  user.  In  this  capacity,  the  UIM  performs  six  specific  func¬ 
tions  which  assist  the  user  in  performing  VM  simulations. 

First,  using  conversational  prompts,  the  UIM  acquires  the  inputs  from 
the  user  that  are  needed  to  simulate  the  spill  problem  he  is  interested 
in.  It  only  asks  for  those  inputs  that  are  necessary,  thereby  relieving 
the  user  of  the  worry  about  inputs  that  are  not  needed  or  that  come  from 
internal  UIM  or  VM  files.  Approximately  150  inputs  are  needed  for  a  VM 
simulation,  but  for  a  typical  spill  problem  the  user  needs  to  supply  only 
30  or  40.  Table  2-1  is  a  listing  of  all  the  inputs  that  the  UIM  requests 
of  the  user.  In  any  given  problem,  a  portion  of  these  inputs  would  not  be 
needed. 

Second,  the  UIM  provides  information  and  instructional  material  that 
helps  the  user  prepare  the  input  values.  Sufficient  information  is  dis¬ 
played  to  enable  the  user  to  prepare  a  simulation  without  the  need  for 
supporting  documents  or  worksheets.  This  information  is  displayed  only 
when  requested  by  the  user,  so  the  experienced  user  is  not  held  up  by  in¬ 
formation  statements  he  does  not  need. 

Third,  the  UIM  edits  the  inputs  to  check  for  alpha  or  numeric  errors 
and  then  informs  the  user  of  the  type  of  error. 

Fourth,  the  UIM  makes  conversions,  performs  calculations,  and  provides 
data  from  its  internal  files  necessary  to  complete  the  VM  Input  file. 

This  file  is  then  formatted  in  the  proper  VM  computer  format  for  submis¬ 
sion  to  the  VM.  Actual  submission  of  the  run  is  made  by  the  UIM  following 
a  user-supplied  command  to  do  so. 

Fifth,  the  UIM  informs  the  user  of  the  chemicals  for  which  spill  simu¬ 
lations  can  be  run,  and  the  ports  for  which  Geographical/Demographic  files 
exist.  Spill  problems  involving  these  chemicals  and  ports  are  the  only 
problems  that  aan  be  run  through  the  UIM.  Tables  2-2  and  2-3  present  the 
chemicals  and  geographical  files  available  in  the  UIM  as  of  this  writing. 

A  current  up-to-date  listing  of  the  available  chemicals  and  ports  is  con¬ 
tained  in  the  UIM  program  itself  and  in  the  UIM  User's  Operational  Manual 
[6].  (If  other  chemicals  or  ports  are  desired,  then  either  the  UIM  must 
be  modified  to  include  the  proper  data  or  the  VM  must  be  operated  directly, 
i.$.,  not  through  the  UIM.) 
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TABLE  2-1 

Listing  of  User  Inputs  to  UIM 


Top-to-botto«  haight.  Hola'a  cantarllna  abova  watarlina.  °8ola'a  bottom 

abova  tank  bottom.  ^Hot  uaad  if  opart  watara  ara  apaoifiad  for  itaa  10. 

*Hot  uaad  if  a  toxic  daaaga  coda  la  apaolflad  for  ita»  23.  ^Default  aaquaoca  uaad 
if  raquaatad. 


TABLE  2-2.  Chemicals  in  UIM 


CHEMICAL 

CODE 

Acetaldehyde 

AAD 

Acrolein 

ARL 

Acrylonitrile' 

ACN 

Ammonia  (anydrous) 

AMA 

Butane 

BUT 

Butylene 

BTN 

Carbon  tetrachloride 

CBT 

Chlorine 

CLX 

Dimethy lamina 

DMA 

Ethyl  ether 

EET 

Hydrogen  chloride 

HDC 

Hydrogen  cyanide 

HCN 

Hydrogen  fluoride 

HFX 

Hydrogen  sulfide 

KDS 

Liquefied  natural  gas 

LNG 

Liquefied  petroleum  gaa 

LPG 

Methyl  bromide 

MT8 

Nethal  chloride 

MTC 

Octane 

OAN 

Pentane 

PTA 

Phosgene 

PHG 

Propane 

PRP 

Propylene 

PPL 

Propylene  oxide 

POX 

Sulfur  dioxide 

SFD 

Toluene 

TOL 

Vinyl  chloride 

VCM 

.  . 

TYPE  OP 
HAZARD* 


•Principal  hazard  codes  aret  T«toxic,  F»f lammable. 


TABLE  2-3.  Available  Geographical  Piles 


PORT  CITY  PILE  NAME 

New  York,  Perth  Amboy  area  GE0NY4 
New  York,  Coney  Island  area  CE0NY6 
New  Orleans  GE0N01 
Los  Angeles  GEO LAI 


UIM  CODE 


ft*-'*  <»'* 


Sixth,  the  UIM  provides  for  storage  of  previous  VM  Input  files  pre¬ 
pared  by  the  user.  When  similar  problems  are  to  be  run*  the  user  can  call 
for  these  files  and  make  changes  to  them  rather  than  create  entirely  new 
files?  this  greatly  reduces  the  file  preparation  time. 


B.  DESCRIPTION  OF  T HE  UIM 

1.  Introduction 

In  structure,  the  UIM  consists  of  two  programs:  (1)  UIML,  an  una¬ 
bridged  program  which  accomodates  the  beginner  or  occasional  user,  and 
(2)  UIMS,  an  abridged  program  which  accommodates  experienced  users  who  are 
more  conversant  with  computers  and  who  are  sufficiently  conversant  with 
the  data  needs  of  the  VM  so  as  not  to  need  detailed  information  on  the 
inputs. 

Each  of  the  programs  is  further  divided  into  two  branches:  a  branch 
for  creating  a  new  Input  file  and  a  branch  for  using  an  Input  file  previ¬ 
ously  created  and  saved.  The  latter  branch  is  a  time-saver  when  the  user 
is  interested  in  running  a  series  of  similarly  structured  problems  which 
differ  in  only  one  or  two  parameters.  An  edit  routine  enables  the  user  to 
make  changes  to  any  of  the  inputs  in  the  old  file  and  resubmit  the  run. 
Figure  1--1  in  the  Introduction  and  Summary  chapter  1  illustrates  the  basic 
structure  of  the  UIM  and  a  detailed  UIM  flowchart  is  presented  in  Appendix 
B. 


2.  Unabridged  Program  ( Detailed  or  Long  Version) 

In  operation,  the  user  of  the  UIM  is  asked  initially  for  his/her  name. 
This  is  for  file-management  purposes.  Then,  the  user  is  asked  whether  or 
not  he  wants  to  use  the  unabridged  (long)  version  of  the  UIM?  if  the  re¬ 
sponse  is  negative,  the  abridged  program  is  then  accessed.  The  differ¬ 
ences  between  the  two  programs  consist  of  quantity  of  prose  and  additional 
information  options.  Zn  the  long  version,  each  needed  data  input  is  ex¬ 
plained  prior  to  the  actual  request  for  the  input  value.  The  input  re¬ 
quests  are  arranged  by  groups,  and  there  1b  a  preamble  to  each  group, 
wherein  the  user  is  asked  whether  or  not  further  information  is  desired. 

If  the  response  is  affirmative,  then  several  paragraphs  of  additional  ex¬ 
planatory  material,  usually  consisting  of  "typical  values"  lists  or  a 
fuller  description  of  the  physical  nature  of  the  group  of  inputs,  are  pre¬ 
sented.  This  explanatory  material  is  presented  in  Appendix  B  of  the  UIM 
User's  Operational  Manual. 

3.  Abridged  Program  ( Short  Version) 

The  short  version  was  created  to  satisfy  the  needs  of  a  more  experi¬ 
enced  user,  wlto  perhaps  has  resorted  to  the  detailed  version  several  times 
previously  and  is  sufficiently  conversant  with  the  data  input  explanations 
so  as  to  not  wish  to  be  presented  with  the  textual  material  each  time  a 
file  needs  to  be  built.  The  short  version  consists  of  a  series  of  brief, 
one-line  prompts  for  data,  with  the  cursor  (or  printhead)  remaining  on  the 
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line  of  the  prompt  each  time.  No  access  to  the  informational  passages  is 
granted ,  and  at  no  time  may  the  user  switch  back  to  the  detailed  version 
without  stopping  the  program  and  then  restarting  (and  vice  versa) . 

4.  Internal  Error  Checks 

Each  version  makes  the  same  data  range  checks  for  file  integrity.  If 
a  certain  alphabetic  response  is  solicited,  it  must  be  entered  or  the  so¬ 
licitation  will  be  repeated  until  a  satisfactory  answer  is  received.  Nu¬ 
meric  data  must  conform  to  any  physical  constraints;  for  instance,  lati¬ 
tude  (longitude)  data  must  be  not  greater  them  89(179)  degrees,  59  minutes, 
59  seconds.  However,  most  of  the  numeric  inputs  are  selectable  at  the 
discretion  of  the  user,  with  no  range  checks  performed. 

Certain  errors  made  in  inputs  when  under  control  of  the  abridged  ver¬ 
sion  will  produce  error  messages  that  came  from  the  detailed  version,  but 
generally  only  the  message  "ERRONEOUS  INPUT"  will  be  printed.  The  de¬ 
tailed  version  will  generally  present  explanations  as  to  the  nature  of  the 
error  and  a  lengthier  request  for  reentry  of  the  datum. 

Each  version  is  structured  so  as  to  solicit  values  only  for  pertinent 
inputs.  For  instance,  if  a  toxic  run  is  requested,  the  input  requesting 
secondary  fires  choice  will  be  suppressed.  Thus  the  full  set  of  possible 
solicitations  may  not  be  presented  depending  upon  the  spill  scenario  con¬ 
templated  by  the  user. 

5.  Listing  end  Naming  of  Input  File 

Both  programs  of  the  UIN  flow  identically  after  the  last  possible  in¬ 
put  has  been  entered.  A  listing  of  the  file  created  by  the  user  is  pre¬ 
sented*  with  its  internally  generated  name,  using  the  units  of  measurement 
specified  by  the  user. 

6.  Use  of  Old  Input  Piles 

As  mentioned  previously,  the  user  does  not  have  to  create  a  file  each 
time  by  answering  all  of  the  possible  questions  sequentially.  If  a  pre¬ 
viously  UXM-creatad  file  exists  on  disk  in  the  account,  and  if  only  a  few 
ohanges  need  to  be  made  to  it  to  create  a  file  for  a  new  problem  for  the 
VM,  the  user  may  opt  to  reenter  this  file  automatically  and  save  some  time 
and  effort  in  the  process. 

I  tan  ad  lately  after  selecting  the  UIM  version  desired,  the  user  is  asked 
whether  an  old  or  a  new  file  is  to  be  built.  If  the  response  is  "NEW”, 
sequential  input  solicitation,  starting  with  the  type  of  measurement  units, 
is  initiated  ns  described  above.  However,  if  the  user  selects  "OLD",  the 


•The  short  version  program  provides  the  user  the  option  to  view  the  inputs 
or  to  skip  the  listing  and  go  directly  to  the  editing  branch,  whereas  the 
long  version  automatically  presents  the  listing. 
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program  then  asks  for  the  name  of  the  old  file  to  be  loaded  in.  The  user 
enters  the  correct  six-character  uim  file  name,  and  the  program  then  pulls 
the  file  off  the  disk  and  loads  it.  The  result  of  a  successful  loading  is 
the  same  as  that  for  completion  of  the  “new  file"  branch— a  listing  of  the 
complete  file  by  input. 


7.  Changes  to  an  Input  File  (Editing  an  Input  File ) 

After  the  listing  is  completed,  the  user  is  asked  if  any  changes 
(edits)  are  to  be  made  to  the  file.  If  an  affirmative  response  is  re¬ 
ceived,  the  program  then. prompts  for  the  line  number  of  the  input  sought 
to  be  changed  (from  the  listing) ,  and  then  a  prompt  for  the  new  value  is 
issued.  If  the  detailed  program  was  previously  selected,  a  full  prompt  is 
given,  and  the  option  for  the  information  statement  pertinent  to  the  input 
is  given.  The  short  version  presents  a  brief  prompt,  with  no  choice  for 
additional  information. 

The  editing  branch  is  complete  in  the  sense  that,  if  a  chain  of  depen¬ 
dent  data  values  has  one  of  its  inputs  modified,  all  of  the  other  values 
that  will  be  affected  will  automatically  be  processed  properly.  For  in¬ 
stance,  if  the  user  has  a  file  loaded  in  with  information  on  river  veloc¬ 
ity,  depth  and  width,  and  during  editing  decides  to  change  the  spill  en¬ 
vironment  to  a  nonriver  (open  water)  scenario,  the  inputs  pertinent  to  the 
original  river  scenario  will  also  be  taken  out  of  the  edited  version.  If 
the  opposite  situation  occurs,  the  user  will  be  asked  for  data  needed  to 
complete  the  river  scenario  automatically  before  edit  control  is  returned 
to  the  user. 

8.  Completion  of  the  Input  File 

The  user  is  prompted  for  more  changes  after  each  successful  edit.  At 
thio  time,  an  entry  of  the  word  “LIST"  will  generate  the  updated,  most 
current  version  of  the  original  file’s  contents.  If  the  user  wishes  to 
depart  from  the  edit  phase  of  the  program,  a  negative  response  to  the  so¬ 
licitation  for  more  changes  must  bo  entered . 

9.  Readying  the  Input  File  foe  VN  Simulation 

The  next  question  asked  will  be  whether  the  user  wishes  to  run  a  VN 
simulation  using  the  current  file.  If  the  response  is  affirmative,  the 
current  file  will  be  arranged  internally  to  fit  the  format  requirements  of 
the  VM  and  a  temporary  file  will  be  generated}  other-wise,  no  temporary 
filo  will  be  made  and  the  VN  will  not  be  run. 

10.  Saving  an  Input  Pile 

Finally,  the  user  is  askod  if  the  current  file  is  to  be  saved  on  disk. 
Automatic  storage  is  not  a  feature  of  this  program  so  as  not  to  create  a 
disk-cluttering  situation,  however,  this  solicitation  has  to  be  used  care¬ 
fully.  If  the  user  were  to  have  loaded  an  old  file  in  and  made  no  chutges 
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to  it,  then  it  would  be  pointless  to  resave  it  since  old  files  are  always 
returned  unchanged  to  disk  after  each  run  of  the  program,  so  the  UIM  will 
not  honor  this  request  in  this  situation.  However,  if  the  old  file  was 
modified,  the  current  file  (old  file  plus  modifications)  will  be  saved  if 
so  desired.  If  the  file  was  built  from  scratch  (a  new  file),  it  will 
similarly  be  saved  if  so  desired. 

11.  Terminating  the  HIM  and  Executing  the  VM  Simulation 

If  a  VM  simulation  based  upon  the  current  file  is  desired,  i.e,. ,  if  an 
affirmative  response  to  the  UIM  query  for  running  the  VM  is  entered,  a 
flag  will  be  set  and  automatic  engagement  of  the  VM  submission  job  stream 
will  occur,  with  about  a  20-second  delay  before  the  name  of  the  job  is 
printed.  If  no  simulation  is  desired,  the  program  will  simply  terminate 
and  clear  all  local  files  from  the  workspace. 

12 .  Recalling  the  UIM  Program  To  Prepare  Another  Input  Pile 

After  the  UIM  program  terminates,  the  user  may  call  it  back  by  simply 
typing  in  the  command  "-RUIM"  again  and  starting  over.  If  the  generated 
file  was  not  saved,  it  will  not  be  retrievable!  if  it  has  been  saved,  then 
the  user  may  operate  on  it  or  any  other  UIM-saved  file  at  his  discretion. 


C.  UIM  PROGRAM  DOCUMENTATION 

1 .  General 

In  this  section,  the  infrastructure  is  described  for  the  benefit  of 
those  wishing  to  understand  the  programming  logic.  Also,  the  procedure 
files  and  jobstreams  which  ate  linked  to  the  UIM  are  described. 

2.  The  UIM  Program 

The  UIM  is  actually  two  similarly  constructed  programs.  The  short 
version  is  named  UIMS*  the  long  version  is  UIKL.  It  is  written  in  cue's 
version  of  BASIC  under  NOS,  asid  is  retrieved  from  disk  before  execution 
to  the  user's  workspace.  The  following  is  a  technical  description  of  the 
common  programming  philosophy  used  to  construct  the  modules. 

All  user  entries  and  applicable  internally  stored  data  are  arranged  in 
the  2  matrix,  which  is  set  up  In  a  row-by-colufcn  fashion  as  2(a,b)  where 
“a"  corresponds  to  the  form  of  data  per  data  entry  *bm.  Specifically,  if 
a«l,  Z(a,b)  will  be  the  VM  field  identification  number  for  the  variable 
corresponding  to  b i  if  a-2,  2(a,b)  will  be  the  actual  (raw)  user  input,  in 


.i 
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alphabetic  form,  or  if  numeric,  in  MKS  or  British  units?  if  a=3,  Z(a,b). 
will  be  the  converted  user  input  value,  i.e.,  the  numeric  value  converted 
to  the  VM-required  cgs  (centimeter -gram-second )  units  system. 

The  major  data  block  stored  in  the UIM  is  the  C3(a,b)  chemical  proper¬ 
ties  matrix,  which  holds  18  different  chemical  properties  per  chemical  for 
27  chemicals.  The  chemical  properties  ;.re  those  needed  for  simulation  but 
not  retrievable  f rom  the  master  Chemical  Properties  file  accessed  by  the 
VM.  The  chemical  code  itself  is  the  basis  for  setting  the  value  of  "-a'.'  in 
the  C3  matrix; "a"  is  determined  by  a  short  lookup  routine  that  checks  to  be 
sure  that  the  three-letter  code  is  one  for  which  the  UIM  can  provide  chemi¬ 
cal  properties. 

The  program  has  been  wrapped  around  itself  as  much  as  possible  to  re¬ 
duce  excessive  coding  by  usage  of  a  set  of  flags  that  control  program  flow. 
The  flags  are  as  follows; 

•  FI  —  units  flag;  l=British  system,  2=MKS  system 

•  F2  —  chemical  code  flag;  0=invalid,  l=valid 

•  F4  —  editing  branch  flag;  Crediting  branch  not  in  use, 

l=editing  branch  in  use 

•  F?  —  file  type  flag;  0=new  file,  l=old  file 

•  F6  —  version  type  flag;  0=detailed (long) >  l=abridged (short) 

•  F8  —  call  to  filename  generator  flag;  0=no  call  has  been 

made,  l=call  has  been  made  (and  a  name  has  been  generated) 

*•“  G4  — *  geographical  file  code  validation  flag;  Q=invalid  geographic 
file  code  (query  for  a  new  one) ,  l=valid  code  (pull  the  file 
off  of  disk) 

•  B3  —  time  sequences  source  flag;  0=time  sequences  have  been 

calculated  by  program,  l=time  sequences  were  supplied  by 
user . 

There  are  several  string  variable  names  used  by  the  UIM;  the  key  ones 
are  listed  below; 

•  Al$  —  stores  the  26  letters  of  the  alphabet 

•  A2$  —  temporary  location  of  randomly  generated  six-letter 

filename 

•  A3$  —  stores  the  valid  three-letter  chemical  codes  as  a  string 

•  B3$  —  stores  the  YES/NO  response  to  solicitation  to  chai>je  the 

internally  calculated  time  sequences  (if  any) 

•  Dl$  —  command  •  >-ring  variable  for  communicating  with  NOS 

•  D$  —  holds  the  name  of  the  file  currently  being  operated  on 

•  E$  —  variable  to  which  the  name  of  an  old  file  is  passed  if 

if  the  user  opts  to  save  the 'edited  version  of  the  old 

file  (on  disk) 


•  F$  —  holds  name  of  geographical  file  stored  on  disk  corres¬ 

ponding  to  the  input  geographical  file  code 

•  G$  —  holds  name  of  the  corresponding  (to  F$)  secondary 

fires  file  if  it  exists  and  if  a  secondary  fires  run 
is  requested  by  the  user 

•  K$  — ■  controls  flow  pertinent  to  whether  a  detailed  or  abridged 

version  run  is  requested 

•  Ll$  through  L7$  —  hold  latitude  (Ll$  &  L2$  &  L3$  &  L7$)  and 

longitude  (L4$  &  L5$  &  L6$  &  L7$)  substring  values  broken 
down  by  degrees,  minutes,  seconds,  and  decimal 

•  L$ (1) ,L$ (2)  —  concatenated  substrings  from  Ln$  series  for 

latitude  and  longitude,  as  DDDMMSS. 

•  Ml$  —  holds  the  valid  three-letter  chemical  code 

•  M5$  —  holds  YES/NO  response  to  prompt  for  consideration  of 

secondary  fires  sources;  used  with  G$  to  produce  a 
disk-retrieval  command  if  appropriate 

•  M9$  —  stores  the  selected  atmospheric  stability  code 

•  U$  —  stores  the  file  source  (old  or  new) 

•  W$  —  general  alphanumeric  input  variable 

•  Y2$  —  holds  YES/NO  response  to  prompt  to  run  a  VM  simulation. 

There  are  four  levels  of  file  status  permissible  in  the  UIM.  Level  1 
is  for  a  new  UIM  file;  Level  2  is  for  an  old  UIM  file;  Level  3  is  for  an 
edited  old  UIM  file;  and  Level  4  is  for  the  VM  input  file  (VMINPUT) . 

Figure  2-1  on  page  2-10  lists  a  typical  disk-saved  UIM-created  file  that 
could  have  been  produced  out  of  Levels  1,  2,  or  3,  given  the  randomly  gen¬ 
erated  name  APAPAP.  For  comparison,  Figure  2-2  on  page  2-11  lists  APAPAP 
in  the  VM-ready  form,  the  Level  4  file  VMINPUT.  Functions  specific  to  CDC 
BASIC  that  are  used  include  END  (produce  a  random  number  from  zero  to  one), 
DAT$  (produce  the  date) ,  FILE  (control  file  disposition) ,  CLOSE  (similar 
to  FILE) ,  GET  and  SAVE  (NOS  commands) . 

The  VM  field  numbers,  associated  variable  descriptions,  and  corres¬ 
ponding  Z  matrix  second-subscript  values  are  presented  in  Table  2-4  on 
pages  2-12  and  2-13. 
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UIH 

INPUT  CLX 

AT  PERTH  AMBOY  79/04/22 > 

1001 

CLX 

.CLX* 

10 

3411 

300.00 

20 

2 

0 

0 

2001 

9.0000E+07 

90.00 

2002 

500*0 

5*00 

2003 

•  0 

.00 

2004 

-33*00 

-33*00 

2005 

1 .0000E+04 

1 

2004 

0* 

2007 

1 « 2540E+08 

♦  98 

2008 

2*QOOOE+02 

2*00 

2011 

. OOOOE+OO 

2015 

100* 

1*00 

2014 

200* 

2*00 

2017 

A  ♦ 

r» 

2018 

2* 

1 

2022 

1* 

2023 

22*0© 

22*00 

2033 

*000 

2028 

1* 

2029 

0* 

1019 

0* 

2034 

-33.00 

2043 

1*000 

2044 

*0 

2054 

28*00 

28*00 

2058 

325*00 

325*0 

3004 

0* 

O' 

5002 

0* 

5003 

0* 

1 

5004 

1* 

NO* 

5004 

0* 

5019 

0. 

5020 

999.0 

5030 

2*4400 

5031 

-34*4500 

5032 

3*1300 

5033 

-2*4000 

5034 

2*9000 

5035 

3*4000 

5034 

100*0000 

5038 

*50 

*50 

4001 

0* 

0* 

4002 

0. 

0* 

4003 

0* 

0* 

4004 

40* 

40* 

4005 

40* 

40. 

4004 

1* 

1. 

4007 

0* 

0* 

4008 

0* 

0* 

4009 

0. 

0* 

4010 

403040. 

*403040.  * 

4011 

0741535. 

>0741535*  * 

FIGURE  2*1.  Liat  of  a  Typical  UIM  Output  Flit,  Naaad  APAPAP 
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.  0 

£004 

-33. 00 

£005 

, 1 OOOE+Q? 

£006 
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£00? 

.1256E+09 

£008 

.P000F+03 

£011 

.  OGOOE+OO 

£015 

. 1000E+03 

£016 

. 8000E+03 

£017 

6. 

£018 

3. 

£0££ 

1. 

£083 

££.00 

£033 

.  0000 

£088 

1. 

£0£9 

0. 

1019 

0. 

£  036 

-33. 00 

£043 

. 1 000E+01 

£046- 

.  0 

£054 

£8.  00 

£058 

385. 00 

3004 

0. 

500? 

0. 

5003 

0. 

5004 

i 

♦  • 

5006 

0. 

5019 

0. 

5005 

0. 

5030 

£.640 

5031 

-36.450 

5038 

3. 130 

5033 

-£.400 

5034 

£.900 

5035 

3.400 

5036 

100. ooo 

5038 

.50 

6001 

0. 

600£ 

0. 

6003 

0. 

6004 

40. 

6005 

40. 

6006 

1. 

600? 

0. 

6008 

0. 

6009 

0. 

6010  403040, 

6011  0?41535. 

FIGURE  2-2.  VMINPUT,  Created  from  APAPAP 
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TABLE  2-4 

VM  Input  Pile  Prepared  Through  UIM 


VM  FIELD 
NUMBER 

DESCRIPTION  OF  INPUT 

SOURCE  OF  INPUT 

1001 

Chemical  Code 

User  -  Question  <1 

1019 

60%  of  Maximum  Flame  Temperature,  *C 

UIM  Chemical  Properties  File 

2001 

Tank  Capacity 

User  -  Question  44 

2002 

Tank  Height 

User  -  Question  45 

2003 

Height  of  Bottom  of  Hole 

User  -  Question  49 

2004 

Cargo  Temperature 

User  -  Question  42 

2005 

Tank  Preaiure 

User  -  Question  43 

2006 

Tank  Thermal  Condition* 

UIM  Chemical  Properties  File 

2007 

Initial  Kaaa  of  Cargo 

2000 

Hole  Diameter 

User  -  Question  47 

2011 

Product  of  Denaity  times 

Heat  Capacity 

UIM  Chemical  Properties  File 

2015 

Height  of  Hole 'a  Centerline 

User  -  Question  48 

2016 

Hind  Speed 

User  -  Question  416 

2017 

Atmospheric  Stability 

User  -  Question  419 

2018 

Channel  or  Radial  Spill 

User  -  Question  410 

2020 

Channel  Nidth 

User  -  Question  412 

2022 

Heat  Transfer  Conditions,  set  to  1 

UIM  Chemioal  Properties  File 

2023 

Water  Temperature 

User  -  Question  411 

2028 

Spill  Environment 

User  -  Question  10 

2029 

Duration  of  Discharge  Flag,  set  to  0 

— 

2033 

Flame  Speed 

UIM  Chemical  Properties  File 

2036 

Temperature  of  Liquid  Discharged 

Equal  to  Cargo  Temperature 

2043 

Diffusion  Coefficient 

UIM  Chemical.  Properties  File 

2044 

Depth  of  River 

User  -  Question  413 

2045 

Nidth  of  River 

User  -  Question  412 

2047 

Velocity  of  River 

User  -  Question  414 

2052 

Hanning  Roughness  Factor 

User  -  Question  415 

2054 

Air  Temperature 

User  -  Question  411 

2058 

Hind  Direction 

User  -  Question  417 

3004 

Secondary  Piro  Source  Indicator 

User  -  Question  425 

5002 

Miscibility  Indicator 

UIM  Chemical  Properties  Pile 

Ip 

I 
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TABLE  2-4  (concluded) 

VM  Input  File  Prepared  Through  UIM 


•WFASth 

NUMBER 

DESCRIPTION  OF  INPUT 

SOURCE  OF  INPUT 

H“  f  MATRIX  ” 
n-value  (S(i,n)) 

£003 

FlastMbility  Indicator 

User  -  Question  123 

23 

5004 

Toxicity  Indicator 

User  -  Question  423 

105 

5005 

Liquid  Toxicity  Indicator,  sat  to  0 

UIM  Chenical  Properties  File 

146 

5006 

Typa  of  Ignition 

User  -  Question  123 

106 

5019 

Kolas  of  Oxygen 

UIM  Chenical  Properties  File 

147 

5030 

Flashpoint 

UIM  Chenical  Properties  File 

155 

5030 

Toxicity  Exponent 

UIM  Chenical  Properties  File 

148 

5033 

Coaff  A  -  Lethality 

UIM  Chemical  Properties  File 

149 

5033 

Coaff  B  -  Lethality 

UIM  Chemical  properties  File 

150 

5034 

Coaff  A  -  Injury 

UIM  Chenical  Properties  File 

151 

5035 

Coaff  B  -  Injury 

UIM  Chenioal  Properties  File 

152 

5036 

Irritation  Threshold 

UIM  Chenioal  Properties  File 

153 

5037 

Coefficient  of  Ingestion 

UIM  Chenical  Properties  File 

154 

5030 

Fraction  of  Population  Shaltarad 

User  -  Question  126 

26 

6001 

Time  Begin  Loop  1 

•User  -  Question  #37 

27 

6003 

Tine  End  Loop  1 

•User  -  Question  128 

28 

6003 

Tine  Interval  Loop  1 

•User  -  Question  129 

29 

6004 

Tine  Begin  Loop  3 

•User  -  Question  130 

30 

6005 

Tine  End  Loop  3 

•User  -  Question  131 

31 

6006 

Tine  Interval  Loop  3 

•User  -  Question  133 

32 

6007 

Tine  Begin  Loop  3 

•User  -  Question  133 

33 

6000 

Tine  End  Loop  3 

•User  -  Question  434 

34 

6009 

Tine  Interval  Loop  1 

•User  -  Question  435 

35 

6010 

Latitude 

User  -  Question  420 

20 

6011 

Longitude 

User  -  Question  421 

21 

‘These  Inputs  srs  also  computed  by  tht  UIM  snd  Mill  b«  usad  if  tha  uaar  so  chooses. 
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3.  UIM-Associated  Files  and  Jobstreams 


The  UIM  is  accessed  either  directly  or  by  recourse  to  a  procedure  file 
named  RUIM  ("Run-UIM")  which  automatically  selects  the  user-desired  UIM 
version,  and  then  tests  for  the  possible  UIM  file  outputs  to  set  up  and 
run  a  VM  submission.  Usage  of  RUIM  is  recommended  for  routine  runs  of  the 
VM?  it  is  not  useful  when  display  plot  files  are  desired  (since  the  UIM 
does  not  set  KPLOT) ,  when  bypass  or  ppm  table  suppression  runs  are  con¬ 
templated,  or  when  updates  cure  to  be  included  in  a  VM  run,  unless  modifi¬ 
cations  to  the  called  jobstreams  are  also  made,  *UIM  is  presented  as 
Figure  2-3.  Note  that  it  is  set  up  to  call  either  of  two  jobstreams, 
RUNUIM  or  RDNUIM2,  and  that  it  clears  all  files  from  the  workspace  after  a 
successful  submission,  thus  allowing  for  multiple  runs  during  a  single 
session. 

RUIM  initially  calls  UCLECT,  a  short  procedure  file  which  retrieves 
from  disk  the  version  of  the  UIM  corresponding  to  the  user’s  input  to  a 
YES  or  NO  solicitation.  At  present,  the  UIM  long  version  is  not  storable 
as  an  object  module  due  to  its  great  length,  so  it  must  be  compiled  each 
time  it  is  used.  A  compilation  plus  execution  of  UIML  generally  requires 
about  12  SBU's  of  system  resources,  which  is  $5.40  under  current  rates 
(the  short  version  generally  requires  7.5  SBU's  or  $3.38). 

RUIM  eventually  calls  jobstream  RUNUIM  (if  a  secondary  fires  run  is  to 
be  performed)  or  RUNUIM2  (in  the  opposite  case) .  RUIM,  UCLECT,  RUNUIM, 
and  RUNUIM2  are  listed  as  Figures  2-3  through  2-6.  The  flowchart  for  the 
UIM  programs  as  they  are  embedded  in  RUIM  is  presented  in  Appendix  B  along 
with  a  listing  of  the  respective  source  codes. 


D.  DATA  PREPARATION  FOR  UIM  CHEMICAL  PROPERTIES  FILE 

As  previously  mentioned,  the  major  data  block  stored  in  the  UIM  is  the 
Chemical  Properties  file  which  holds  18  different  properties  for  each 
chemical,  of  which  there  are  currently  27.  These  properties  are  those 
needed  for  VM  simulation  but  not  retrievable  from  the  VM  Chemical  Proper¬ 
ties  file. 

Table  2-5  presents  the  data  currently  contained  in  the  file  for  the  27 
chemicals.  These  data  were  obtained  through  a  literature  search  or  con¬ 
sultation  with  experts.  As  noted,  some  data  were  unavailable  and  default 
values  are  being  used  until  data  can  be  developed. 

The  probit  coefficients  for  toxic  chemicals  are  a  key  part  of  the  UIM 
Chemical  Properties  file.  Appendix  C  discusses  the  derivation  of  the  pro¬ 
bit  coefficients  for  all  of  the  toxic  chemicals,  including  the  checking 
and  correction  of  the  coefficients  for  probits  previously  derived. 


00090  RFL*40000 • 

00100  GET *UCLECT • 

00101  L0C*0*UCLECT  *  ♦  1  *  . 

00102  IF  (FILECUIMS»LC).EQ.1)GCT0»20BT. 
00103  LDC*G*UlML**l*  . 

00104  GOTO*2JMP. 

00105  20BT«LDC»0.UIMS**1  *  . 

00120  2JMP*  IF  (FILE(VMINPUT*LC) .EG.OIEXIT. 
00130  IF  (FILE (GE0NY4 *L0))G0T0*1A« 

00140  IF  (FILE (GE0NY6*LQ) )G0T0»18* 

00150  IF  (FILE(GEOLA1,LO))GGTO*1C. 

00160  IF  (FILE (GE0LA2*L0) ) GOTO *10. 

00170  IF  (FILE (GE0NC1 *L0 1 ) GOTO* IE* 

00180  1A*RENAME»GE0G=GE0NY4. 

00181  IF  (FILE(SECNY4*LO).EG.O>  G0T0»2SUB. 
00182  RENAME *SFIREsSECNY4» 

00190  GOTO  *2SUR • 

00200  18* RENAME »GE0GsGE0NY6* 

00210  GOTO  *2SU8 • 

00220  1C*RENAME*GEOG=GEOLA1. 

00230  GOTO*2SU8. 

00240  lD»RENAME*GEOGaGEOLA2. 

00250  GOTO  *2SUB • 

00260  lEtRENAMEiGEOGaGEONOU 

00265  IF  (FILE(SECFRE*LQ) • EG. 0) GOTO *2 SUB. 

00270  RENAME *SF IRE *SECFRE* 

00280  G0T0*2SUR. 

00290  25U8 ♦ IF  (FILE (SF IRE *L0 >  *EQ*0> GOTO* 2U* 
00300  GET *RUNUIM* 

00310  SUBMIT *RUNUIM»STSECZ  *T *> 

00320  GOTO* 1ENC* 

00330  2U*GET»CHEAPVM.* 

00340  SUBMIT »CrEAPVM*ST=EC2*T* 

00350  1EN0  »CLEAR. 


♦Since  renamed  RUNUIM2 


FIGURE  2-3.  Procedure  RUIN 
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LIST 


TS't&sll.  14.11.10. 
PROGRAM  R'JNUIM 


''JOE 

SECFIVM?  NT1 ?  CM31 000Q?  T1  OC^PS. 

user  '.mmmmmmmmm) 

project.,  Vmr  t  ♦ . 

REWIND (OUTPUT) 

ROUTE ? OUTPUT ? UN=C  ?  T I D=UN ?  DC=PR » DEF . 

HEADING. XI PLS  HOLD 
HEADING. X  U  S  C  G 
HEADING. XI  VUL.  NOD. 

HEADING. X  OUTPUT 
HEADING? ?1. 

COPYBR  ?  *  TAPE  1 ? . 

COPYBR?  ?SFCFRE. 

REWINDjSECFRE. 

REWIND?  TAPE15. 

RPR!.  IPST ? VNTAPF , NT?  PF«  NOR  I NG  ?  CT=PIJ ,  I  D=U  SPG?  URN*  OS  1 828 . 
COPYBF *  VMTAPE ?  TAPES? . 

COPYBF  ?  VNT  APE  ?  TAPER . 

COPYBF , VMTAPE ? TAPE 1 0 . 

COPYBF, VMTARE? TAPE14. 

COPYBF, VMTAPE? PHI  BIN. 

COPYBF  ?  VMTAPE  ?  PH?B I N . 

RE W I ND (VMTAPE  ?  TAPES? ?  TAPER ?  TAPE 1 0  ?  TAPE  1 4  ?  PH 1 B I N  ?  PHSB I N> 
RETURN? VMTAPE.' 

MAP?  OPF. 

LDSET (PRESET=?ERO> 

PHI  BIN. 

RFW T ND  (TAPF 1 ? ?  TAPF 1 3  ?  TAPE 1 4> 

PHSB IN. 

''EOR 

•'NOSEQ 

'PACK 

''READ?GE0G 

''Enp 

-'READ,  SF I  RE 
'EOR 

''READ  ?VM  INPUT 
''EQR 
>EOP 
OCADY.  . 


FIGURE  2-5. ,  Program  RUNUIM 
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RERPY. 

LIST 

?9'06.'U.  14.08.46. 

PROGRRM  RUNUIM2 

"JOB 

FRSTVM*  NT1  *  CM31 0000*  T1 00*  P2. 

user  (wmmmmmmmm 

PROJECT*  ♦MRU. 

REWIND  <DUTPUT> 

ROUTE  *  OUTPUT , UN=C » T I D=UN>  DC=PR>  DEF . 

HFRDING.XIPIS  HOLD 
HERDING. X  U  S  C  G 
HERDING. XI  VUL.  MOD. 

HFRDING. X  OUTPUT 
HERDING* >1. 

COPYBF  *  *  TRF'E  1 5 . 

RFWTND. TRPF1 5. 

REQUEST  *  VMTRPE  >  NT » PE  *  NOR  I N6 » CT=PU  * I D=USCG ,  V(SN=  OS  1 8£8 . 
COPYBF, VMTRPE, TRPE22. 

COPYBF, VMTRPE, TPPE9. 

COPYBF* VMTRPE* TRPE1 0. 

COPYBF  *  VMTRPE  >  TRPE 1 4 . 

COPYBF , VMTRPE  *  PH 1 B I N . 

COPYBF  *  VMTRPE , PH2B I N . 

RE W I ND  < VMTRPE  *  TRPE22 *  TRPE 9  *  TRPE 1 0 » TRPE 1 4 » PH 1 B I N , PH2B I N> 
RETURN, VMTRPE. 

MRP* OFF. 

LDSET  <'PRESET=2ERCT> 

PH1BTN. 

REWIND <TRPE 1 2 » TRPE 1 3 *  TRPE 1 4> 

°H2BIN, 

✓EDR 

'NOSEQ 

-'PRCX 

•'RFRP*GEOG  1 

'EOR 

■"RERD*VM  INPUT 

''FOR 

'■FOP 

RERDY. 


FIGURE  2*6.  Program  RUNUIH2 
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B.  USSR  DOCUMENTATION 

Instructions  for  using  the  UIM  are  provided  in  the  U1M  User's  Opera¬ 
tional  Manual  [6] .  This  manual  describes  the  function  and  structure*  of 
the  UXM,  presents  basic  operating  instructions «  gives  examples  of  UZM 
operating  sessions,  and  describes  and  interprets  the  VM  output. 


Chapter  3 

VM  GRAPHICAL  DISPLAYS 


A.  INTRODUCTION 

To  enhance  the  utility  of  the  VM  simulations,  a  series  of  graphical 
displays  have  been  developed  which  display  on  a  CRT  terminal  or  plotter 
the  extent  of  the  personnel  and  structural  damage  associated  with  toxic, 
flammable,  or  explosive  chemical  spills.  By  use  of  the  graphical  displays, 
the  spatial  and  temporal  characteristics  of  the  hazards  become  more  readily 
comprehensible,  and  the  analyst  is  provided  with  a  more  descriptive  summary 
of  the  progress  of  the  hazardous  event. 

The  set  of  display  plots  (frames)  that  have  been  developed  for  a  par¬ 
ticular  spill  simulation  consists  of: 

•  A  family  of  curves  showing  the  constant  concentration  contour 
lines  for  the  atmospheric  transport  of  a  hazardous  vapor, 
based  on  lower  igni table  limit  or  irritation  threshold. 

e  Zones  of  expected  fatalities,  disaggregated  by  fractional 
damage  contours. 

•  Zones  of  expected  injuries,  disaggregated  by  fractional 
damage  contour  s . 

e  Zones  of  structural  damage. 

The  contour  lines  are  superimposed  over  a  schematic  map  of  the  correspond¬ 
ing  cell  (vulnerable  resource)  centers  to  further  clarify  the  VM  results. 

Currently  the  plots  can  be  displayed  on  Tektronix-type  CRT  terminals 
(Models  4010  or  4012)  or  plotted  on  CAXCOMP  hard  copy  plotters.  Construc¬ 
tion  of  the  VM  plotting  package  has  been  performed  in  a  modular  fashion, 
and  the  particular  procedure  files  that  inform  the  computer  of  terminal 
status  can  be  easily  rearranged  to  accommodate  different  brands  of  CRT 
terminals  or  hard  copy  plotters. 

when  using  the  interactive  display  programs,  the  user  is  granted 
the  option  to  alter  some  of  the  original  scenario  features,  such  as  wind 
direction  end  spill  location,  as  s  means  of  analysing  the  same  basic  prob¬ 
lem  parametrically  without  going  to  the  expense  of  further  VH  rune. 

All  of  the  plotting  data  is  generated  by  the  VM,  which  has  been  modi¬ 
fied  and  to  which  seven  new  subroutines  have  been  added.  The  generated 
plotting  data  are  stored  on  a  disk  file.  X,y  plotting  data  are  generated 
for  the  following  variables: 

e  irritation  threshold  vapor  concentration— puff  model 

e  irritation  threshold  vapor  concentration—  pluse  model 

e  lower  flammability  limit  viper  concentration— puff  model 

•  lower  flammability  limit  vapor  concentration— plume  model 

e  lethality  from  toxicity,  outdoors— puff  model 

e  lethality  from  toxicity,  outdoors— plume  model 
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•  nonlethal  toxic  injury,  outdoors— puff  model 

•  nonlethal  toxic  injury,  outdoors — plume  model 

•  lethality  from  flash  fire 

0  nonlethal  injury  from  flash  fire 

•  lethality  from  explosion  peak  overpressure 

•  nonlethal  injury  from  overpressure 

•  structural  damage 

All  data  rre  displayed  on  a  display  which  shows  the  spill  site  and  the 
relevant  cell  centers.  For  the  irritation  threshold  and  the  lower  flam¬ 
mability  limit  associated  with  the  puff  model  (variables  1  ana  3),  x,y 
contours  are  generated  as  a  function  of  time  (i.e.,  for  a  progression  of 
time  steps)  so  the  user  can  see  how  the  puff  progresses  with  time.  For 
all  the  remaining  variables,  time- independent  envelopes  are  generated  which 
show  the  regions  affected.  For  all  the  lethality  variables  and  for  the 
structural  damage  variable,  each  display  consists  of  several  envelopes 
corresponding  to  several  levels  of  lethality  or  damage  presented  as  percent 
deaths  or  percent  buildings  destroyed. 

All  the  plotting  data  generated  in  the  VM  are  stored  in  a  direct-acces3 
disk  file  which  is  saved  under  a  system-given  name.  The  user  can  retrieve 
the  data  for  plotting  using  this  name. 

Three  programs  for  plotting  have  been  written  which  are  independent 
of  the  VM.  The  program  TOXDISP  displays  all  curves  relevant  to  toxic 
casualties?  program  FIRDISP  displays  all  curves  relevant  to  fire  casual¬ 
ties?  program  EXPDISP  displays  all  curves  relevant  to  explosion  casual¬ 
ties. 


B.  DERIVATIONS 

The  data  generated  are  based  upon  tho  equations  derived  in  the  previ¬ 
ous  VM  reports  [1-5] .  These  equations  aret 

•  vapor  dispersion  equations  (3-1)  and  (3-2)  (ref.  [1]) 

•  explosion  equations  (4-4)  to  (4-6)  (ref.  [1]) 

•  flash  lire  equation  (4-15)  (ref.  [5]) 

•  toxic  dose  equations  (2-6)  and  (2-7)  (ref.  [5]) 

•  probit  equation  (6-1)  (ref.  [1]) 

These  equations  are  rearranged  to  express  the  dependent  variable  y  in 
terms  of  x  as: 


y  *  f(x)  (3-1) 

Note  that  the  vapor  dispersion  coefficients  are  functions  of  x  only.  Tho 
details  of  the  derivations  are  presented  in  the  following  subseations 
entitled: 

«  Constant  Vapor  Concentration  Contour 

•  Constant  Toxic  Casualty  Contour,  Outdoors 

•  Thermal  Damage  from  Flash  Fire  Model 

•  Damage  from  Explosion 


1,  Constant  Vapor  Concentration  Contour 


(a)  Puff  Model 

For  the  puff  model*  the  vapor  concentration  at  some  point  (x,y,z) 
at  time  t  ie  given  by: 


_  an 

c  * - 57; -  exp 


-gt)2  _  _  z2_ 

2o£  20^  2o£ 


where: 

C  *  vapor  concentration  (kg/m3 ) 

Ojf #Oy ,02  »  dispersion  coefficients  in  x-,y~, z-directions  (m) 

.*#  «  mass  of  vapor  liberated  (kg) 

0  »  wind  speed  (a/s) 

x,y,z  -  Cartesian  coordinates  with  the  origin  at  the  source  of  the 
air  dispersion  material)  the  wind  ie  assumed  to  blow 
toward  the  positive  x-direction,  and  the  crosswind  coordi¬ 
nate  is  y . 

When  the  vapor  concentration  C  is  equal  to  a  given  value  CL,  then 
equation  (1-2)  can  be  written  as: 


VJl  ,  Jti  *  «1  .  2 

a  '  a  ’  a  •* 


(2lt)  ,/iOJfOyO, 


(3-3) 


In  this  problem,  the  CL  will  be  either  the  lower  flammability  ltoit  for 
flammable  gases  or  the  lover  threshold  value  for  toxic  gases.  Equation 
(3-3)  gives  the  constant  vapor  concentration  surface  which  is  an  ellip¬ 
soid  with  the  center  at  (x  *  0 1 »  y  » 0 ,  a  ■  0) .  When  considering  the  ef¬ 
fects  at  ground  level#  s«0  and  the  contour  becomes  an  ellipse  which  is: 


(3-4) 


(b)  Plume  Model 

The  plume  vapor  concentration  is  given  by: 


where: 

g  =  rate  of  vapor  liberated  (kg/s) 

With  a  given  concentration  C £,  equation  (3-5)  becomes: 


2  2 
y  .  2 
2  +  ~~2 
°y 


2WOyOzCL 


(3-5) 


(3-6) 


Since  Oy  and  0Z  are  functions  of  x,  the  surface  is  like  an  elongated 
ellipsoid.  On  the  ground  2  =  0,  so  we  have: 


20y  In  £ 


2W0y0zCL 


(3.-7) 


2.  Constant  Toxic  Casualty  Contour ,  Outdoors 

in  the  VM  the  damage  to  personnel  from  toxicity,  burn,  and  explosion 
is  assessed  by  the  probit  equation  which  is  defined  as: 

Pr  ■  a  in  v  (3-8) 


where  v  is  the  dosage,  and  the  coefficients  a  and  b  are  determined  from 
existing  experimental  data.  The  variable  Pr  is  referred  to  as  a  probit 
(probability  unit) .  It  is  a  Gaussian-distributed  random  variable  with  a 
mean  value  of  5  and  a  variance  of  1.  The  percent  of  the  vulnerable  re¬ 
sources  affected  is  the  percent  corresponding  to  the  cumulative  distri¬ 
bution  of  Pr.  For  a  given  probit  Pr,  the  dosage  is: 


v  «  exp 


(3-9) 


The  dosage  v  depends  upon  both  the  duration  of  exposure  and  the  vapor 
concentration.  The  general  form  is: 

r 

v  *»  l  C°  dfc  (3-10) 


where  the  exponent  n  is  a  real  number. 
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(a)  Puff  Model 

The  toxic  dosage  for  the  puff  model  is  obtained  by  substituting 
equation  (3-2)  into  equation  (3-10)  and  integrating  over  time.  The 
resulting  equation  is: 


/  2 M  Y1  /  ir' 

r 

y  (2ir)3/2  axayazJ  \2n, 

f  v 

1+erf  ( Vf  7~) 

exp 

\  '  2  ax/ 

2  \o*  a|/ 

(a-11: 


where  erf  is  the  error  function.  For  a  given  v  and  z  =  0,  we  have: 


2  a, 


SSL  £n 


It 


2  M 


(2ir)3/2  ajfOyOj. 


[— (Vt  <?,)]} 


(3-12: 


The  dispersion  coefficients  (ax,cfy,oz)  increase  monotonically  with  x  so 
that  at  a  certain  distance  the  argument  of  the  logarithm  will  be  unity 
or  y  will  approach  zero.  So  the  contour  is  a  closed  curve.  Five  curves 
corresponding  to  1%,  25%,  50%,  75%  and  99%  casualties  ore  calculated. 
The  probits  corresponding  to  these  percentages  are  2.67,  4.33,  5.0,  5.67 
and  8.09. 


(b)  Plum  Model 


The  dose  equation  for  the  plume  model  is: 


(3-13) 


where  te  is  the  total  evaporation  time.  In  the  same  manner  as  in  (a) 
above,  for  z  -0  we  have: 


y 


2 


n 


(3-14] 


Also,  five  ourves  of  percent  of  casualties  are  calculated  as  in- (a) 
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.  Thermal  Damage  from  Flash  Fire  Model 

The  general  dose  equation  for  thermal  damage  is: 

v«Jlndfc  (3-15) 

where  I  is  the  radiation  intensity  (J/m2-s)  and  n  ,is  a  real  number.  The 
flash  fire  model  is  divided  into  two  phases:  burning  phase  and  cooling 
phase.  The  burning  phase  starts  from  the  ignition  and  stops  when  the 
fuel  is  burned  out.  The  cooling  phase  is  the  period  when  the  hot  vapor 
cools  down  to  ambient  or  near-ambient  temperature.  For  personnel  damage, 
only  radiation  from  the  burning  phase  is  considered  [5] . 


The  thermal  dosage  for  flash  fire  in  the  burning  phase  is  given  by: 

r  -  &  jfaY' ($T  >3-1 

where: 

S  *  flame  velocity  (m/s) 

Tf  »  flame  temperature  (°K) 
rj,  -  fireball  radius  (m) 
d  -  distance  from  the  fire  center  (m) 
ot  -  absorptivity 
G  -  emissivity 

0  «  Stefan-Boltzmann  constant  (J/n^-s-0**) 

The  fireball  radius  is  equal  to: 


where: 


Mo  m  vapor  mass  burned  (kg) 

Ppo  **  density  of  products  at  ambient  temperature  (kg/m5) 
To  ■  ambient  temperature  (°K) 


(3-17) 
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Equation  (3-16)  can  also  be  written  as? 

O’ (it  '  (<*°Tl)'/2  rbV‘ 

When  the  dosage  v  is  given,  the  corresponding  distance  from  the  fire 
center  d  is  determined. 


4.  Damage  from  Explosion 

Explosion  casualty  is  caused  by  either  the  peak  overpressure  or  the 
impulse  from  the  explosion*  The  dosage  v  in  the  probit  equation  is, 
therefore,  the  overpressure  P(N/m2)  or  the  impulse  I  (N-s/m2). 

The  energy  yield  in  a  gas  explosion  is  described  by  the  following 
equation: 

W  -  (-AH)  ~  (Real)  (3-19) 


where: 

A H  -  heat  of  combustion  (Kcal/kg-mol) 

Me  =  mass  of  exploding  fuel  (kg) 

M  =  molecular  weight  of  the  fuel 

The  damage  assessment  due  to  explosion  is  caculated  from  the  scaling  laws 
which  are  stated  as  follows: 


da  (P/P o)*/8 
(W'/W o)1/>S  (T/r0)1/S 

ts  W'/W0)l/3 
(P/Pq)1/3  (T/T o)l/* 

js  (yyty0)1/8  (p/p0)2/s 

(r/r«)l/€ 


(3-20a) 


(3-20b) 


(3-20c) 


where: 

ds  «  scaled  distance  from  explosion  center  (m) 

da  ■  actual  distance  from  explosion  center  (m) 

p,T  *  pressure  and  temperature  of  the  atmosphere  in  the  actual 
case  (bar,  °K)  ' 

*Only  overpressure  effects  are  currently  being  depicted  in  the  graphical 
displays  for  explosion  damage. 
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P0,Tq 


=  pressure  and  temperature  o£  the  atmosphere  in  the  case  of 
the  reference  explosion  (Po  “  1  bar,  To  •“  288.15°K) 

W*  «  effective  energy  yield  of  the  actual  explosion 

Wo  *  energy  yield  of  the  reference  explosion  (1  kg  of  TNT  yields 
1.12  *106  calories*  thus.  Wo  *  1.12  *106  calories) 

ta  *  actual  time  <s) 

ts  =  scaled  time  (s) 

Ia  =  actual  impulse  (N-s/m2) 

Is  **  scaled  impulse  (N-s/m2) 

These  laws  are  simplified  considerably  if  .he  actual  explosion  is 
assumed  to  occur  in  the  same  atmosphere  as  the  reference  explosion. 

Since  ratios  of  absolute  values  for  atmospheric  pressure  and  temperature 
are  raised  to  fractional  powers,  these  factors  are  close  to  unity  even 
when  the  reference  and  actual  atmospheres  a* a  not  identical.  By  assuming 
essentially  identical  atmospheres,  one  obtains: 


(W'/Wo)1/s 

(3-2Ia) 

=  ts  (W'/Wo)1/3 

(3-21b) 

-  is  (WV Wo) 1/3 

(3-21o) 

For  an  explosion  with  a  center  on  a  rigid  surface,  the  surface  re¬ 
flects  completely  all  explosive  energy  impinging  upon  it.  If  the  ground 
can  be  considered  as  a  rigid  surface,  then  the  effective  energy  yield 
will  be  twice  the  explosive  energy  yield,  or: 

W'  -  2W  (3-22) 


The  data  for  a  reference  spherically  symmetrical  explosion  are  stored 
in  the  computer.  If  the  critical  impulse  for  body  injury  is  determined, 
the  oritical  distance  for  a  certain  explosive  mass  can  be  obtained  from 
equations  (3-20a)  or  (3-21a)  and  the  reference  data.  The  procedure  is 
as  follows: 

1.  Compute  W  tid  W'  from  equations  (3-19)  and  (3-22). 

2.  Compute  dose  v  for  a  given  probit  from  equation  (3-8)  for 
impulse. 

3.  Let  la  “  v  and  compute  is  from  equations  (3-20o)  or  (3-21o). 


4.  From  the  reference  data,  find  the  scaled  distance  dB  corres¬ 
ponding  to  the  ls. 

5.  Compute  actual  distance  da  which  is  the  radius  of  the  constant 
casualty  curve. 


C.  MODIFICATION  OF  VH  AND  ADDITION  OF  NEW  SUBROUTINES 

The  VM  has  been  modified  and  several  new  subroutines  have  been  added. 

A  control  variable  has  been  installed  by  which  the  user  can  direct  the 
program  to  generate  the  plotting  data.  The  new  subroutines  are: 

PLOTIN:  Based  on  the  physical  properties  of  the  vapor,  this 

subroutine  calls  various  subroutines  to  generate  the 
plotting  data. 

PUFPLO:  This  subroutine  generates  the  coordinates  for  the  lower 

threshold  value  curve  or  the  lower  flammability  curve 
for  the  puff  model. 

PIMPLO:  This  subroutine  generates  the  coordinates  for  the  lower 

threshold  value  curve  or  the  lower  flammability  curve 
for  the  plume  model. 

FLASPL:  This  subroutine  calculates  the  coordinates  for  the 

constant  lethality  curve  and  nonlethal  curve  from  a 
flash  fire  burn.  Five  curves  for  each  case  are 
generated,  corresponding  to  1,  25,  50,  75  and  99 
percent  casualties. 

TQXPLO:  This  subroutine  calculates  the  coordinates  of  constant 

casualty  curves  from  toxic  gas  for  both  puff  and  plume 
models.  Five  curves  for  eaoh  case  are  generated,  i.e., 

1,  25,  50,  75  and  99  percent  casualties. 

EXPPLO:  This  subroutine  generates  the  coordinates  of  oonstant 

casualty  curves  from  explosion  including  peak  over¬ 
pressure,  impulse,  and  flying  fragments.  It  also 
generates  the  constant  damage  curves  for  structures. 

Eaoh  of  the  subroutines  which  produce  the  damage  extent  data  bases  for 
eventual  conversion  to  visual  displays  is  keyed  on  a  three-  or  five-tiered 
probit  analysis  scheme,  in  which  three  (1%,  50%  and  99%)  or  five  (1%,  25%, 
50%,  75%  and  99%)  curves  corresponding  to  distance  at  which  each  percent 
of  damage  is  likely  to  occur  are  computed  to  form  the  curve  family. 

The  data  bases  per  curve  family  are  coded  using  a  general  format  whioh 
enables  subsequent  reading  of  the  data  in  a  simple  manner.  The  "write" 
format  is  in  the  following  order: 
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NPLOT,I,J,X(J):,Y1(J)  ,Z 

where: 

NPLOT  is  an  integer  value  (13)  corresponding  to  a  plot  file 
code  for  subsequent  sorting  and  identification  by  the 
display  programs. 

I  is  the  number  of  the  current  set  of  data  corresponding  to 
either  a  certain  elapsed  time  or  distance,  incremented 
by  a  constant  amount 

J  is  the  number  of  the  current  set  of  data  corresponding  to 
1  and  to  a  particular  probit  level 

X(J) ,Y1 (J)  is  the  ordered  set  of  coordinates  computed  to 
correspond  to  I  and  J,  converted  to  units  of  meters 

Z  is  the  alphanumeric  name  of  the  cell  corresponding  to  I. 

There  are  certain  exceptions  to  the  variable  types  written  in  this 
format.  The  entire  set  of  cells  from  the  coordinate-transformed  Geo¬ 
graphical  file  is  written  onto  the  Output  file  (TAPE36)  as  X(J)  and  Y1 (J) , 
with  NPL0T=1,  and  J  not  used— instead ,  I  is  used  as  the  increment  index, 
in  PLOTIN,  NPLOT-199  and  the  values  of  the  flammability  and  toxicity  flags 
are  stored  in  I  ai«d  J ,  respectively,  with  the  values  of  the  total  mass  of 
gas  (sum  of  data  in  field  numbers  4001  and  4023)  and  exploded  mass,  if  any, 
stored  in  X  and  Yl.  In  VMEXEC,  NPLOT-200  and  the  values  of  the  wind  speed 
and  either  lower  flammability  limit  (g/cm3)  or  irritation  threshold  (g/cm3) 
are  stored  in  X  and  Yl,  respectively.  . 

In  subroutines  FLASPL  and  EXPPLO,  the  number  of  the  probit  curve  is 
stored  in  I,  the  number  of  the  cell  in  which  ignition  occurs  goes  in  J, 
and  the  radius  corresponding  to  I  is  placed  in  X,  with  Yl  getting  the 
value  of  the  percentage  corresponding  to  I  and  z  left  unwritten  (as  also 
is  the  case  in  all  other  TAPE36  writing  sections,  except  for  the  one 
transferring  the  values  of  the  transformed  cell  coordinates) . 

PUFPLO  sets  NPLOT-2  for  the  puff  irritation  (toxic  submodel)  curve 
family  and  NPLOT--* 3  for  the  puff  lower  flammability  limit  family. 

PLMPLO  sets  NPI0T-4  for  the  plume  irritation  curve  family  and  NPLOT-5 
for  the  plume  lower  flammability  limit  family. 

FLASPL  sets  NPLOT- 6  for  the  curve  family  corresponding  to  flash  fire 
death  (lethality)  and  NPLOT-7  for  the  family  corresponding  to  flash  fire 
first-degree  burn  (injury) ,  regardless  of  whether  the  plume  or  puff  model 
is  used. 

TOXPLO  sets  NPLOT- 10  for  the  toxic  death  curve  family  and  NPLOT-11  for 
the  toxic  injury  family  if  the  plume  model  is  used,  or  NPL0T-12  for  toxic 
death  curves  and  NP LOT-13  for  toxic  injury  curves  if  the  puff  model  is 
used. 

EXPPLO  sets  NPLOT-17  for  the  death  from  overpressure  curve  family, 

NP lot-18  for  the  injury  from  overpressure  family,  and  NP LOT-19  for  the 
structural  damage  family,  again  regardless  of  dispersion  model  type. 


All  of  the  subroutines  which  perform  calculations  for  the  plot  file 
data  base  contain  zero-divide  safeguard  coding.  The  user  is  cautioned 
that  if  errors  occur  in  the  execution  of  earlier  subroutines  they  will  be 
passed  into  the  display  subroutine  sections  (if  a  "fatal"  error  does  not 
prevent  this)  since  no  range  checks  on  the  incoming  data  are  performed. 

Besides  the  additional  subroutines  for  the  VM,  four  independent  pro¬ 
grams  have  been  created  for  plotting. 

DISFTN:  This  is  a  procedure  file  which  controls  the  use  of  DISSPLA, 

a  plotting  software  package,  under  NOS.  The  procedure  file 
takes  a  source  file,  compiles  it,  links  with  the  DISSPLA 
library,  and  executes  it.  DISFTN  also  retrieves  a  Tektronix 
terminal  status  definition  file,  TEKANS  (for  Model  4010-4012 
configurations  only) . 

The  following  are  the  three  source  files: 

TOXDISP :  This  program  requests  and  reads  the  plotting  data  file 
name  and  attaches  the  file  to  the  user's  workspace  as 
a  secondary  file.  It  next  requests  and  reads  a  user- 
supplied  20-character  or  less  plot  title,  for  identi¬ 
fication  purposes,  to  which  it  adds  its  own  title.  It 
also  reads  the  cell  number  of  new  spill  location  (if 
any)  and  the  new  wind  direction  with  the  x-axis  (if 
any) .  Then  the  program  reads  the  toxic  data  from  the 
attached  file,  rearranges  the  data  if  necessary,  and 
determines  the  scale  of  the  graphs.  It  plots  the  lower 
threshold  value  curves,  constant  lethality  curves  and 
constant  nonlethality  curves  (if  any)  for  the  puff  or 
plume  model. 

FIRDISP:  This  program  is  similar  to  TOXDISP  except  that  it 
plots  the  lower  flammability  limit  curves,  constant 
lethality  curves  and  nonlethality  curves  from  the  flash 
fire  or  fireball  model. 

EXPDlSPt  This  program  is  also  similar  to  TOXDISP,  but  it  will 
not  read  the  new  wind  direction  because  the  explosion 
effect  is  one  of  spherical  symmetry.  It  plots  the 
constant  lethality  and  nonlethality  casualty  ourves 
from  explosion  and  the  constant  structural  damage 
curves  due  to  overpressure. 

Appendix  D  contains  a  listing  of  the  above  programs  and  DISFTN. 

Only  one  additional  user  input  variable  for  the  VM  is  needed  and  that 
is  the  plotting  control  variable,  KPLOT: 


Field 

Number 

Default 

Value 

Comment 

4014 

0 

none  KPLOT, 

■0,  no  plotting  data  generated » 
•■1.0,  generates  plotting  data 

Execution  of  the  VM  with  a  request  for  plot  file  generation  normally 
results  in  an  increase  in  system  resources  demand  of  approximately  75%  to 
100%  beyord  a  non-plot  file  generation  run  using  otherwise  identical  input 
files.  A  successful  execution  of  the  former  type  results  in  TAPE36 ,  the 
plot  data  base  file*  routed  to  the  NOS  disk  file  via  station  KEB  immedi¬ 
ately  after  PHASEl  is  executed ,  just  prior  to  the  loading  of  PHASE2. 

TAPE36  is  transmitted  as  a  direct-access  (ATTACH-type)  file,  since  it  will 
normally  be  quite  lengthy,  and  is  renamed  using  the  system-declared  name 
for  the  particular  job  (e.g.,  AVAKCSP) ,  and  must  be  called  for  under  this 
name,  not  as  TAPE36. .  A  scan  of  the  dayfile  attached  to  the  run  or  of  the 
current  NOS  disk  catalog  will  produce  the  name  of  the  routed  file. 

A  special  Cycle-15  VM  jobstream  named  DISPVM  has  been  written  and 
stored  in  the  S7205  disk  catalog  for  easy  usage  of  the  KEB  routing  facil¬ 
ity.  The  jobstream  is  presented  in  Figure  3-1  and  is  submitted  after  : 
calling  in  the  appropriate  Geographical  file  to  the  workspace  and  renaming 
it  GEOG,  as  well  as  naming  the  Input  file  VMINPUT,  using  this  command: 

SUBMIT , DISPVM , ST=s tationid , T . . 


D.  USAGE  OF  THE  DISPLAYS 

The  user  can  run  the  VM  by  remote  job  entry  from  NOS  by  using  either 
UIM  version  alone  (not  file  -RUIM)  or  by  creating  the  input  file  manually. 
The  time-sharing  user  can  submit  the  job  by  entering  the  SUBMIT  command. 
The  format  is: 

SUBMIT, job  file  narae,ST»id,T. 

where  id  is  a  three-character  site  identifier  that  specifies  what  SCOPE 
3.4  site  should  receive  the  transmitted  file  (for  the  Eastern  CYBERNET 
Center  at  Rockville,  Maryland,  the  id  is  ECZ) .  After  the  job  has  entered 
into  the  local  batch  queue,  the  system  responds : 

hh,nm,ss, jobname 

where  hh,mm,ss,  is  the  time  that  the  job  entered  the  batch  queue  (hours, 
minutes,  seconds}.  The  jobname  will  also  be  the  name  of  the  generated 
plotting  data  file  which  is  routed  back  to  NOS.  The  user  is  advised  to 
write  this  name  down  for  referenoe.  The  following  is  an  example: 

/SUBMIT , DISPVM , ST-BCZ , T . 

10.08. 12. AVDOAYO 

/ 

The  first  line  is  typed  by  the  user  and  the  second  line  is  printed  by  the 
terminal.  DISPVM  is  the  job  file  and  AVDOAYO  is  the  system-declared  job- 
name  and  also  will  be  the  name  of  the  generated  plotting  data  file,  which 
will  appear  in  the  NOS  disk  catalog  as  a  direct  access  file. 

In  the  Geographical  file,  the  cells  are  identified  by  the  ID  numbers 
which  are  usually  the  same  as  the  census  tract  codes.  When  the  VM  reads 
the  file,  it  rearranges  the  cells  into  sequential  numbers  (1,2,3...)  and 
calculates  the  transformed  coordinates  (x  and  y)  for  each  cell  using  the 
spill  location  as  origin.  In  the  printout  of  the  VM  job,  the  user  finis 
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READY 

LIST 


79-'' 06/1 1 .  17.05.27. 

PROGRAM  DISPVM 

/JBP 

DISPLVM?  NT1 ?  CM3 1 0000?  T1 00?  P3. 

user  mmmmmmmtm 

PROJECT  ? ♦MRT ♦EC I . 

REWIND <DUTPUT> 

ROUTE  ?  OUTPUT  ?UN=C?TI D=UN ?DC=PR?DEF. 

HFpDTNG.XlPLS  HOLD 
HEADING. X  U  S  C  G 
HEADING. XI  VUL.  MOD. 

HEADING. X  OUTPUT 
HEADING?  ? 1 .  PLOTFILE 
COPYBR? ? TAPE 15. 

RFWINP?  TAPE 15. 

REQUEST  ?  CHEMTAP  ?  NT  ?  PE  ?  NOR I NG  ?  CT=PU? I D-USCG ?  VSN=  0S7  072 
COPYPF  ?  CHEMTAP ? TAPES . 

COPYBF ?  CHEMTAP ?  TAPE 1 0 . 

COPYPF?  CHEMTAP?  tAPE 1 4 . 

REWIND  tCHEMTAP?  TAPF9? TAPE1 0?  TAPE14> 

PFTI  !RN«  CHFMTAP. 

ATTACH?  VM?  USC6VULM0DLGD ?  CY= 1 5 ? ID=USC6. 

COPYBF? VM? PHI  PI  N. 

COPYBF ?VM?PH2B IN. 

LDSETCPRESET*ZERO) 

MAP? PART. 

PHI  BIN. 

REWIND  <TAPE26> 

ROUTE  <TAPE36 ?  DC=FL  ?  ST=KEB> 

REW I ND  aAPF  12?  TAPE  1 3 » TAPE  1 4) 

PH? PIN. 

/FOR 
.'NOSFR 
/PACK  . 

/READ?GE06 
/EDR 

/READ ?VM INPUT 
/EDR 
'EOF 
READY. 


FIGURE  3-1 

VM  Display  Plot  File  Routing  Jobs tr earn  DISPVM 
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a  table  called  Geographical  Data  which  lists  the  sequential  number,  cell 
ID,  latitude,  longitude,  x-coordinate,  and  y-coordinate  of  each  cell.  The 
reason  we  describe  this  process  in  detail  is  that  in  the  display,  the 
cells'  locations  are  represented  by  the  centers  and  marked  with  the 
seguential  number.  With  the  Geographical  Data  table  and  the  census  map, 
the  user  can  then  find  the  area  covered  by  the  vapor  clouds. 

The  following  example  illustrates  the  steps  for  producing  display  out¬ 
put.  In  the  example,  it  is  assumed  that:  (1)  the  user  wants  to  display 
toxic  casualties,  so  the  program  TOXDISP  is  used:  (2)  the  plotting  data 
file  is  AVDOAYOj  (3)  the  user  wants  to  change  the  spill  location  to  cell 
35:  and  (4)  the  user  wants  to  change  the  wind  direction  to  -15  degrees 
from  the  old  wind  direction.  In  the  example,  the  letter  "U"  (USER)  means 
that  the  user  types  in  the  data  or  answer,  the  letter  HTn  (TERMINAL)  means 
that  the  terminal  prints  the  message,  and  (cr)  means  to  depress  the  return 
key. 

1.  Sign  on  the  system 

2.  U:  OLD, TOXDISP  (cr) 

T:  READY. 

3.  0:  -DISFTN (F*T0XDISP )  (cr) 

4.  T:  WHAT  IS  THE  PLOTTING  FILE  NAME: 

U:  AVDOAYO  (cr) 

5.  Tt  ENTER  THE  PLOT  TITLE  {<21  CHARS.)  — 

U:  CLX  SPILL  /RUN  25  (cr) 

6.  T:  DO  YOU  WANT  TO  CHANGE  THE  SPILL  LOCATION? 

ANSWER  1  FOR  YES,  0  FOR  NO 
U:  1  (cr) 

7.  T:  WRITS  THE  CELL  NUMBER  WHERE  THE  SPILL  WILL  OCCUR 
Ut  35  (cr) 

8.  T:  DO  YOU  WANT  TO  CHANGE  THE  WIND  DIRECTION  FROM  THE  ONE 

WHICH  YOU  USED  TO  CALCULATE  THE  PLOTTING  DATA? 

ANSWER  1  FOR  YES,  0  FOR  NO 
U:  1  (cr) 

9.  T:  WRITE  THE  WIND  DIRECTION  IN  DEGREES:  COUNTERCLOCKWISE 

IS  POSITIVE:  CLOCKWISE  IS  NEGATIVE 
U»  -15.0  (cr) 

With  these  data  entries,  the  computer  starts  to  execute  and  display  auto¬ 
matically.  A  typical  3-framo  run  requires  about  10-20  minutes  of  time  at 
300  BAUD  (about  4-10  minutes  at  1200  BAUD)  and  generally  "costs"  about 
60  SfiU's. 

The  user  may  obtain  hard  copies  of  the  displays  by  (1)  Polaroid  pho¬ 
tography  of  the  finished  frame  on  the  CRT  terminal  (each  frame  generally 
is  held  for  about  20  seconds  by  the  computer  before  erasure)  or  by 
(2)  saving  the  display  program-created  intermediate  plotting  data  file, 
named  NPFILE,  and  processing  it  for  a  CALC0MP  batch  job  to  produce  India- 
ink -on-pa per  reproductions  of  the  image  frames.  For  purpose  (2),  e  spe¬ 
cial  submission  jobatream,  CALPL0T,  has  been  crested  and  is  described  next. 


If  the  user  is  satisfied  with  the  plot  frames,  immediately  after  the 
system  returns  control  of  the  CRT  terminal  to  him,  he  should  proceed  to 
reprocess  the  intermediate,  temporary  plotting  file  named  NPFILE  (for 
"Neutral-Picture  FILE")  into  a  CMjCQMP -compatible  data  file  named  PLOTF. 
This  is  done  using  the  fo^i. owing  commands: 

0:  NULL  (cr) 

T:  READY. 

U:  REWIND, NPFILE  (cr) 

T:  READY. 

U:  CALL (UNIPRCC , S-2POST (DEVI-ROCKVIL)  (cr) 

T:  (after  a  short  delay) 

1  UNIPOST  V2.1  INPUT  DIRECTIVES 

? 

U:  $  (cr) 

The  computer  will  then  take  a  few  seconds  to  process  the  NPFILE  and  will 
return  with: 

T:  READY. 

U:  CET,CALPLOT  (cr) 

T:  READY. 

U:  SUBMIT, CALPLOT , ST«8tationid ,T  (cr) 

T:  hh,mm,ss, jobnaoe 

The  listing  of  CALPLOT  and  its  associated  information  file,  PLTXNFO, 
is  presented  in  Appendix  B. 

To  pick  up  the  CAICOMP  plots,  the  user  needs  to  have  placed  his  phone 
number  and  name  in  PLTXNFO  so  that  the  local  CDC  cluster  center  can  notify 
him  whan  they  are  ready  for  pickup  (generally,  allow  one  full  day) . 

Example  CAICOKP  plots  are  presented  as  Figures  3-2  through  3-21  on  the 
fol loving  pages  and  illustrate  the  outputs  from  the  various  display  pro¬ 
grams. 


5.  FLO*  DIAGRAMS 

Figures  3-22  through  3-30  (pp.  3-36  through  3-48)  depict  the  revised 
and  appended  flowcharts  illustrating  tho  changes  made  in  incorporating  the 
display  plot  file  producing  code.  Figure  3-30  shows  the  flowchart  for 
program  TOXDISPj  since  FXRDISP  and  EXPO ISP  are  similarly  configured,  they 
are  not  shown. 
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F1SOBZ  3-2.  lover  Pljulile  I-lelt  Carve:  LNS/Perth  Aeboy/Puf f  Model 
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FIGURE  3-4.  Fire  Injury:  LNG/Perth  Amboy/Puff  Model 


FIGURE  3-6.  Injury  from  Overpressure :  LNG /Perth  Amboy/Puff  Model 


FIGURE  3-7-  Structure  Damage:  IJJG/Perth  Amboy/Puff  Model 


FIGURE  3-8.  Toxic  Irritation  Curve:  AMA/Perth  Amboy 
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3-10.  Toxic  Death:  CLX/Perth  Amboy 


FIGURE  3-11.  Toxic  Injury:  CLX/Perth  Amboy 
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FIGOFE  3-16.  Fire  Injury:  IPG  Spill/Coney  Island 


riOTRE  3-18.  Lomr  Flaw  utile  Limit  Curve:  LPG  Spill/Coney  Island 
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FIGURE  3-20.  Injury  froa  Overpressure:  U*G 
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FIGURE  3-22  (continued) 
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FIGURE  3-22  (concluded) 
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FIGURE  3-23 .  FLOWN 
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FIGURE  3-25.  PUtPLO 
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FIGURE  3-26  (concluded) 
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FIGURE  3-28 
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FIGURE  3-30. 
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Chapter  4 

GEOGRAPHICAL/DEMOGRAPHIC  FILE  GENERATION 
FOR  NEW  YORK  AND  LOS  ANGELES  HARBORS 


A.  INTRODUCTION 

Under  Task  3  of  this  study  to  prepare  the  Vulnerability  Model  (VM)  for 
operational  use,  two  Geographical/D eraographic  files  were  generated  for  the 
New  York  Harbor  and  one  file  was  generated  for  the  Los  Angeles  Harbor  area. 
Together  with  the  previously  created  New  Orleans  file  (GEONOl) ,  there  are 
now  four  files  of  several  hundred  cells  each  which  can  be  accessed  through 
the  User  Interface  Module  (UIM)  or  directly  read  into  the  VM. 

The  remainder  of  this  chapter  is  devoted  to  descriptions  of  these  files 
and  discussion  of  how  they  were  created. 


B.  APPROACH 

The  Geographical/D eraographic  files  were  generated  by  selective 
searches  of  census  data  contained  within  the  U.S.  Department  of  Commerce's 
Master  Enumeration  District  List  (MEDList) .  The  data  were  provided  on 
magnetic  tapes  arranged  by  census  region,  generally  with  two  regions'  data 
files  per  reel  of  tape. 

The  MEDList  tapes  contain  census  data  arranged  by  state,  then  by 
county,  then  by  census  tract,  and  finally  by  enumeration  district  plus 
block  group  (if  any) .  Our  searches  concentrated  on  extracting  appropriate 
census  tracts  plus  enumeration  districts  for  targeting  as  cells  in  the 
Geographioal/Deraographic  files.  There  is  a  great  deal  of  other  data  avail¬ 
able'  on  these  tapes  concerning  alternative  code  identifications  for  each 
tract.  We  selected  the  housing  aounts  and  population  counts,  and  the  lati¬ 
tude  and  longitude  as  well  as  the  tract  identification  (traat  number  plus 
enumeration  district  number)  for  the  Geographical  files,  and  added  to  each 
line  of  extracted  data  an  assumed  ignition  code  of  +3*  (capable  6f  igniting 
any  material  with  flashpoint  less  than  200°F)  and  an  assumed  dollar  value 
of  $60,000  per  structure  per  tract. 

The  latitudinal/longitudinal  positions  of  each  tract  were  used  as  keyB 
for  selection  or  rejection  in  making  the  searches.  The  objective  of  each 
search  was  to  produce  a  file  of  350  to  390  land  area  cells  based  on  a  pre¬ 
sumed  likely  spill  location,  and  then  water  area  cells  were  added  nearby 
the  putative  spill  location  to  complete  the  file.  Since  the  water  calls 
are  critical  in  establishing  whether  or  not  the  program  will  even  compute 
the  cause  of  a  spill,  a  fairly  wide  expanse  of  water  was  used  to  locate 
these  cells  so  as  to  provide  the  VM  user  with  flexibility  in  selecting 


*Except  for  the  water  cells  of  the  Los  Angeles  and  two  New  York  area  files, 
to  whiah  were  assigned  ignition  codes  of  zero  (no  potential  to  ignite) . 
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spill  locations.  (The  criterion  used  in  the  VM  for  going  ahead  with  com¬ 
putations  is  that  the  selected  spill  location  must  be  within  20  seconds  of 
latitude  or  longitude  of  a  cell — 20  seconds  is  about  one-third  of  a  mile 
or  about  0.53  kilometers.) 

Each  generated  Geographical  file  was  then  given  a  systematically  deter¬ 
mined  name  and  UIM  code.  The  names  are  based  on  the  abbreviation  of  the 
port  city  that  was  the  basis  for  selecting  the  tract  cells,  prefixed  by 
the  syllable  GEO  and  suffixed  by  an  identifying  digit  which  corresponded 
to  the  sequential  order  in  which  the  file  was  made.  The  files  generated 
were: 

•  GEO LAI 
. •  GE0NY4 

•  GE0NY6 


C.  DESCRIPTIONS  OF  FILES 

The  GE0LA1  file  was  produced  for  the  Long  Beach  area  of  Los  Angeles, 
California.  There  are  361  land  area  cells  and  6  water  area  cells,  for  a 
total  of  367  cells.  The  file  covers  an  area  9  miles  north,  2  miles  west, 
and  8  miles  east  of  a  putative  spill  site  in  the  San  Pedro  Harbor,  with 
coordinates  of  33*42 '34"  N.  and  118*16' 19"  W.  On  land,  it  extends  north¬ 
ward  to  Lakewood,  eastward  to  the  Long  Beach  Airport,  and  westward  to  the 
Torrance  Municipal  Airport.  The  resulting  area  of  coverage  resembles  a 
square.  Figure  4-1  is  a  map  of  the  Los  Angeles  area  showing  the  boundaries 
of  this  file.  Figure  4-2  is  a  map  of  the  harbor  area  showing  the  location 
of  the  census  tracts  contained  in  the  file.  In  general,  each  tract  con¬ 
tains  several  block  groups  which  constitute  the  individual  cells  in  the 
file. 


Figure  4-3  is  a  map  of  the  New  York  Harbor  area  showing  the  location 
of  the  two  Geographical  files  created  for  that  area.  Figures  4-4  and  4-5 
are  large-scale  maps  showing  the  location  of  the  census  tracts  that  make 
up  the  GEONY4  and  GE0NY6  files,  respectively.  Again,  each  census  tract  is 
composed  of  several  cells  (block  groups) . 

The  GE0NY4  file  was  produced  for  the  Perth  Amboy,  New  Jersey/New  York 
area.  There  are  358  land  area  cells  and  6  water  area  cells,  for  a  total 
of  364  cells,  in  this  file.  The  area  of  coverage  is  a  cut  square,  of  side 
and  length  equal  to  16  miles,  centered  about  a  hypothetical  spill  site 
located  at  40*30' 40"  N.  and  74*15 '3 5"  W.  On  land,  it  extends  northward  to 
an  imaginary  line  connecting  Plainfield  and  Linden,  N.J.,  westward  to 
Edison,  N.J.,  and  southward  to  Browntown,  N.J.j  the  eastern  boundary 
varies — it  is  approximately  at  Grasmere  in  New  York  and  at  the  Middlesex- 
Monmouth  County  lines  in  New  Jersey. 

The  GEQNY6  file  was  produced  for  the  South  Brooklyn-Coney  Island/New 
York  area.  There  are  380  land  area  cells  and  6  water  area  cells,  for  a 
total  of  386  cells,  in  this  file.  The  area  of  coverage  is  a  rectangle 
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Reference  Map  for  the  Los  Angeles  Pile  (GEOLA1 ) 


z 


♦ 

z 


S 

B 

t 

t 

8 

8 

o 

o 

o 

o 

m 

• 

• 

S 

o 

in 

VO 

VJ 

M 

* 

0 

© 

0 

« 

cn 

n 

n 

ro 

fO 

1 

i 

i  i 

i  i  i 

i 


i 


4-4 


0O.9O.8TT  -OO.OT.BTT  -0O,»T.8TT  -00.8T-8IX  *»  -00. ZZm BIT 


Reference 


*  * 


4-6 


ms  nmis  »**  ^mnustiam 

JUD^  <J0.  i  i'  .'f  *'  i  * 's/  ■' 


FIGURE  4-4.  GE0NY4 


40* 38’ 00“  N. 


40*37*00" 


40*36 '00* 


40*35*00“ 


40*34*00" 


00“  00"  00"  00"  00"  00"  00“ 
W.  K. 

FIGURE  4-5.  GEQNY6 


4'7  THIS  PAG5  IS  BS5I  QUALITY  HUCHGABL1 

VKOil  03FY  tfUKSl»>lL2D  TO  UDO  ,  ■■■—- 

. '  •  ■»/ 


with  long  sides  equal  to  7  miles  and  short  sides  equal  to  4  miles.  The 
southern  base  of  the  square  has  a  midpoint  at  40°31*24H  N.  and  74°0C’00M  w. 
It  extends  northward  to  the  center  of  Prospect  Park,  eastward  to  Brooklyn 
College  (CUNY) ,  and  westward  to  Owls  Head  Park.  The  southern  terminus  is 
at  an  imaginary  line  approximately  3  miles  south  of  the  Coney  Island  shore¬ 
line. 

A  previously  created  file,  GE0N01,  exists  for  New  Orleans,  Louiui* 

There  are  252  land  area  cells  and  84  water  area*  cells,  for  a  tcV,i  336 
cells,  in  this  file.  The  reason  for  the  great  number  of  watei  >.rea  cells 
is  the  fact  that  the  water  body  of  interest,  the  Mississippi  kiver,  cross¬ 
cuts  the  city;  thus,  this  is  a  case  where  numerous  wator  cells  axe  needed 
to  provide  the  user  with  flexibility  in  selecting  potential  spill  sites 
for  modeling  (whereas  in  New  York  and  Los  Angeles,  the  geographical  areas 
primarily  cover  short  strips  of  shoreline,  for  which  only  a  few  possible 
spill  sites  exist) .  The  area  of  coverage  is  approximately  9  miles  square 
and  is  bounded  to  the  north  by  Lake  Pcntchartr ain * s  southern  shoreline,  to 

the  east  by  Arabi,  to  the  west  by  Metairie,  and  to  the  south  by  a  line  ex¬ 

tending  approximately  parallel  with  the  Mayonne  Canal.  A  map  of  GE0N01  is 
presented  as  Figure  4-6, 

Since  the  user  of  any  of  these  files  is  bound  to  the  criterion  that 
the  selected  spill  site  must  be  within  20  seeorcis  of  latitude  or  longitude 
of  any  (water)  cell,  Table  4-1  presents  the  coordinates  of  the  water  cells 
developed  for  these  files. 

Fox  linkage  to  the  UIM,  four-digit  codes  have  been  assigned  to  each 
file.  The  codes  were  assigned  on  the  basis  of  state  numbers  as  they  occur 

in  the  HEDList  tapes,  the  port  city  number  associated  with  each  state,  and 

the  sequential  number  of  the  file  belonging  to  each  port  city.  The  table 
of  codes  is  displayed  below; 


TABLE  OF  UIM  CODES 


Port  City 

File  Name 

UIM  Code 

New  York 

GE0NY4 

3611 

New  York 

GE0NY6 

3612 

Now  Orleans 

pi:ono1 

221.1 

Los  Angeles 

GE0LA1 

1611 

*All  of  which  have  ignition  codes  of  +3 . 
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Coordinates  of  Water  Area  Cells 
Associated  with  Each  Geographical  File 


nu 


3ELL  ID 

LATITUDE 

UMGITUOC 

KOI 

40*30' 30* 

74*13*40* 

M2 

40*10*1S* 

74*15'3S* 

*03 

40*39'00* 

14*15*15* 

*04 

40*19*45* 

74*13*50* 

M3 

40*29' 20" 

74*13*30* 

*06 

40* 29*13* 

74*15*00* 

Ml 

40* 31 'SO* 

74*00*00* 

*02 

40*32  *20* 

74*00*00* 

*03 

40* 13 *00* 

74*00*00* 

*04 

40*13 *30* 

71*05  *00* 

*03 

40*34*00* 

74SW-0O* 

*06 

■W‘34'10* 

74*00*00* 

201 

33*43*25* 

119*11*00* 

Mi 

31*41 'IS* 

119*16*00* 

S03 

31*44*00* 

119*11*00* 

TM 

31*43*00* 

U9*  14*23* 

■  ifr'rS  •• 

33*43*43* 

119*16*15* 

«*> 

33*44*00* 

119*12*00* 

*1 

29*3* *00* 

90*15*10* 

*2 

34*34*02* 

90*15*20* 

U 

19*34*01* 

90*15*00* 

M4 

19*31*40* 

90* 14* 10* 

MS 

19*31*20* 

90*13*40* 

*04 

39*34'40* 

90*13*10* 

*07 

34*34*20* 

90*11 *30* 

*04 

14*33*30* 

90*1 1*10* 

*04 

19*33*30* 

40*1 3*00* 

*10 

19*33*10* 

»»ia*so* 

Ml 

29*33* 10* 

90*11*10* 

Ml 

14*33  *20* 

90*12*00* 

*13 

29*33*10* 

90*11*40* 

M4 

29*33* 10* 

90*l|*10* 

M3 

29*33*40* 

90*11*00* 

MO 

24*34 '00* 

90*10 *40* 

*11 

24*34*10* 

90*10*30* 

*1* 

19*54*40* 

90*10*00* 

M« 

i»*>?*oe* 

90*09*40* 

*10 

24*31*10* 

90*01 ‘10* 

*31 

19*31*20* 

90,09'«* 

*12 

19*31*10* 

90*0* *40* 

*33 

19*31*00* 

90*04*10* 

•14 

19*34*40* 

90*04*30* 

*13 

19*34*10* 

90*01 '»* 

*14 

19*34*00* 

90*04 ' 10* 

*11 

29*33*40* 

90*04*10* 

•  » 

19*53*  »* 

90*04*  W* 

•14 

19*33*10* 

90*04*  »* 

*10 

19*33*00* 

99*04*10* 

•31 

19*34*40* 

90*04*10* 

*11 

29*34*10* 

90*07*40* 

•31 

24*34*10* 

90*07*15* 

riLi 


tilttStt 

:*ix  id 

IATXTUD1 

U5S«TTJ04 

•34 

29*54*30" 

90*97*00* 

•35 

29*54*30* 

*0*06*30* 

•36 

29*34*40* 

90*06*00* 

•37 

IS'M'iO1’ 

90*03 *40* 

MS 

19*54'<0* 

90*03*10* 

•39 

1**53*00* 

90*04*40* 

•40 

29*55*00* 

90*04*20* 

Ml 

19*55*20“ 

90*04*00* 

•42 

29*35*30- 

90*03*40* 

Ml 

29*35*30“ 

90*01*30* 

•44 

29*56*10* 

90*01 *10* 

•45 

29*56*20* 

90*01 *10* 

•46 

29*56*40“ 

90*01*30* 

•47 

29*57*00* 

90*01*30* 

•44 

29*57*10* 

90*0} *30* 

R4» 

39*51*20* 

90*03*10* 

•50 

29*51*40* 

90*03*00* 

•31 

29*51*40* 

90*01*40* 

•52 

29*41*30* 

90*02*10* 

•51 

39*57*20* 

90*01*00* 

•54 

29*57*30* 

90*01*40" 

US 

29*57*00’ 

90*01 ' 10* 

•56 

29*5**40* 

90*01*20* 

•37 

19*54*40* 

90*00*40* 

•34 

29*54*30* 

90*00*30* 

•S3 

19*54’ 30* 

90*00*00* 

•60 

29*54*20* 

90*39*40* 

•61 

39*56*00* 

90*34*10* 

•62 

29*33  *30* 

90*39*  10* 

•43 

29*33  *30* 

90’ 54 ’SO* 

•64 

29*33* 10* 

90*34*10* 

•15 

19*33*30* 

90*54*10* 

M4 

19*33*  M* 

90*37*40* 

*47 

19*33*10* 

53*37 ’10* 

M4 

39*55*20* 

93*37*00* 

*49 

19*35*10* 

90*34*10* 

■70 

29*33*10* 

90*36*00* 

*71 

2**33*10* 

90*43*30* 

•72 

29*33’ 30* 

90*49*40* 

•71 

19*33*00* 

70*33- JO* 

•74 

24*44*40* 

90*43*20* 

•73 

19*34 *10* 

90*34*00* 

•7* 

19**4*00“ 

90*44 ’W* 

*77 

19*31 'to¬ 

*0**4* SO* 

•14 

ll’ll  *30* 

*9*34*10* 

•79 

34*3»'w* 

90*34*26* 

440 

49*32**0* 

90*44*20* 

Ml 

49*43 *30* 

90*34*20* 

Ml 

19*31*10* 

90*34*10* 

Ml 

19*31*00* 

90*34*40* 

M4 

29*33’00* 

90*33*00* 

Q4QUY4 


WCM6 


OSOtAi 


Stesaoi 


OSQHOl 


4-9 


A 


D.  PROBLEMS  ENCOUNTERED 


The  tapes  were  searched  on  .he  basis  of  state  and  county  codes  as  well 
as  latitude/longitude  boundaries  to  produce  the  Geographical/Demographic 
files.  Although  no  major  ccmputer-r elated  problems  were  encountered,  there 
were  seme  inter system  incompatabilities  that  had  to  be  dealt  with. 

In  particular,  the  tapes  were  originally  made  on  IBM  equipment.  Since 
four  of  the  five  tapes  contained  two-region  files,  it  was  necessary  to 
"read"  past  tape-file  markers  placed  on  these  tapes  to  serve  as  separators. 
On  IBM  systems,  a  double  tape  mark  is  placed  between  files  to  act  as  the 
separator;  on  CDC  systems,  only  single  marks  are  used  in  this  case,  and  a 
double  mark  signals  "end  of  information"  on  a  tape  and  cannot  be  read  .  ' 
past  by  the  software.  Thus,  in  order  to  read  the  second  file  on  each  of 
the  IBM  MEDList  tapes,  they  had  to  be  physically  recopied  as  the  first 
(and  only)  file  on  separate  blank  tapes  and  then  read  into  the  CDC  system. 
Also,  they  had  to  be  converted  into  CDC-readable  record  format  using  the 
RCOPY  utility. 

The  computer  programs  that  extracted  the  sets  of  census  tracts  for 
the  Geographical/Demographic  files  were  designed  to  sort  through  the  master 
tapes  and  then  to  reformat  the  data  into  VM-acceptable  arrangements .  In 
particular,  this  Involved  picking  out  the  relevant  data  from  a  format  in 
which  they  were  represented  as  degrees  and  fractions  of  a  degree  into 
integer  degrees,  minutes,  seconds  (DDDMMSS)  format.  The  conversion  pro¬ 
gram,  ICON  ,  and  a  sample  sort  program  for  the  New  York  area,  CENSRCU,  are 
presented  as  Figures  4-7  and  4-8. 


E.  USAGE  OF  THE  FILES 

These  files  are  accessible  either  by  referencing  their  names  in  a  VH 
submission  jobstream  or  by  referencing  their  four-digit  codes  in  a  UIH- 
assistsd  VII  run. 

The  VM  will  read  in  a  selected  file  ns  it  stands,  sequentially  assign 
cell  numbers  to  each  cell-tract  ID,  and  then  compute  the  relative  distance 
in  an  x-y  Cartesian  plane  from  tho  selected  spill  site.  These  data  that 
are  printed  are  in  the  Geographical  Data  section  of  the  VH  results  print¬ 
out.  It  is  important  for  the  user  to  keep  in  mind  that  all  subsequent 
cell  number  references  are  to  the  VM-assigncd  sequential  cell  numbers  and 
not  to  the  cell  ID's  that  appear  on  the  Geographical  file  maps.  To  track 
hack  a  cell,  the  user  must  refer  back  to  the  aforementioned  Geographical 
Data  Table  to  get  the  correspondences. 

Briefly,  to  use  these  files  in  a  VM  simulation  through  execution  of 
the  UXM,  the  user  prepares  a  data  file  as  he/she  normally  would  through 
the  DIM,  using  the  Geographical  file  maps  to  produce  the  appropriate  code 
and  to  aid  in  selection  of  a  reasonable  spill  site.  The  latitude  and 
longitude  M20-second"  criterion  must  be  kept  in  mind  in  choosing  a  spill 
site.  After  a  successful  VM  run,  the  user  then  refers  to  the  Geographical 
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PROGRAM  ICON ( INPUT , OUTPUT , TAPE18 , TAPE30) 

INTEGER  C,B,D,DEG 

DIMENSION  M(27 ) ,DEG (2) ,IDEG (2) ,IMIN  (2) ,ISEC(2) 

10  READ  (30,50)  C,B,DEG (1) ,DEG (2) ,D,II,J,K, (M(L) ,L=1,27) 

IP  (EOF (30)  40,30 
30  DO  35  1-1,2 

ID EG (I)  a  DEG (I) /10000 
IMIN(I)  «  (DEG (I) /10000-DEG (I) ) *60 
ISEC(I)  =  ( (DEG (I)/10000-IDEG(I) )*60-IMIN(I) )*60 
35  CONTINUE 

WRITE  (18,60)  C,B,IDEG(1) , IMIN (1) ,ISEC (1) ,IDEG(2) ,IMIN (2) 
1ISEC(2)  ,D,II,J,K,  (M(Ij)  , Lai, 27) 

GO  TO  10 
40  STOP 

50  FORMAT  (A4,1X,A3,2I8,4X,I6,6X,A3,I5,A5,27A1) 

60  FORMAT  (A4,".“,A3,2(I4,2I2) ,4X,I6,6X,A3,I5,A5,27A1) 

END 


FIGURE  4-7 

ICON,  Program  To  Convert  Latitude  and  Longitude  Formats 


PROGRAM  CENSRCH (INPUT , OUTPUT , TAPE6=OUTPUT , TAPE10=/132 ,TAPE15) 
INTEGER  POP* HOUSE, FIFTY ,AVAL,AZ,BZ 
DIMENSION  AZ (26) ,A(11) 

DATA  AZ/26* 1HO/ , BZ/1H1/ , AVAL/5H00600/ 

DATA  FIFTY/3H050/ 

REWIND  10 

CALL  PFSUB ( 6HDEFINE, 6HTAPE15 , 6HTAPE15 ,0,0, 0,0 ,UCW , ES , ERROR) 

10  READ  (10,50)  (A(J),J»1, 11), HOUSE, POP, LONG, LAT 
IF  (EOF (10))  40,15 

15  IF  (IABS(LAT-405236).LE.1159)GOTO  20 
GO  TO  10 

20  IF  (IABS (LONG-740000) .LE. 0697) GOTO  30 
GO  TO  10 
30  C=»A(7) 

B-A(8) 

WRITE  (15,60)  C,B,LAT,IANG, POP, FIFTY, HOUSE, AVAL, (AZ(K) ,K»1,26) ,BZ 
I-I+l 
GO  TO  10 
40  CONTINUE 

WRITE  (6,70)  I 

70  FORMAT  (10X,*I«", 13, "CELLS  IN  THIS  FILE.") 

60  FORMAT  (2A4,2I8,4X,I6,6X,A3,X5,AS,26Al,Al) 

SO  FORMAT  (2A2,A3 ,A7,7X, AS, 4X,A4,42X,A4,A3,2A4,A2, 17, 18,2X10) 

STOP 

END 

/EOR 

/EOF 


FIGURE  4-8 

CENSRCH,  Program  To  Sort  Through 
the  New  York/New  Jersey  Census  File 


Data  Table  in  the  printout  to  make  the  conversion  between  the  cell  numbers 
identified  in  the  simulation  to  be  affected  (or  not  affected)  by  the  spill 
of  hazardous  cargo  and  the  cell  ID's  (tract  codes)  listed  on  the  appropri¬ 
ate  map.  Not  all  of  the  cells  listed  in  the  Geographical  files  will  be 
found  on  any  one  map,  because  some  are  resolved  down  to  enumeration  dis¬ 
tricts  and  block  groups  that  are  too  small  in  one  area  to  be  noted  on  the 
maps;  in  this  case,  the  user  must  refer  to  the  integer  part  of  the  ID  to 
locate  the  area  of  concern. 
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Chapter  5 
SPILL  SIMULATIONS 


A.  OBJECTIVES 

Using  the  UIM/VM  system,  spill  simulations  were  performed  for  a  number 
of  chemical  cargoes  selected  by  the  USCG.  The  objectives  of  the  simula¬ 
tions  were  threefold: 

•  To  test  and  check  out  the  utility  and  effectiveness  of  the 
UIM  using  untrained  operating  personnel. 

e  To  validate  the  UIM/VM  system  for  specific  chemicals  of 
interest  to  the  USCG. 

e  To  determine  the  relative  hazard  ranking  of  the  chemicals 
selected  for  simulation. 


B.  APPROACH 

Initially,  27  chemicals  were  selected  as  candidates  for  simulation. 

The  selection  was  based  on  their  hazard  potential  as  estimated  by  their 
chemical  properties  {chiefly  toxicity  or  flammability)  and  their  shipment 
characteristics.  The  various  properties  of  these  chemicals  needed  for  the 
UXH,  including  the  probit  coefficients  for  the  toxic  chemicals,  ware  de¬ 
veloped  and  inserted  in  the  UIM  as  discussed  in  Chapter  2.  Then  from  this 
list  of  27  candidate  chemicals,  USCG  personnel  selected  IS  chemicals  for 
spill  simulation. 

Sines  one  of  the  objectives  of  the  spill  simulations  was  to  perform  a 
hazard  ranking  of  the  chemicals  based  on  the  VM  results,  canonical  spill 
scenarios  ware  devised  which  all  IS  chemicals  could  be  subjectad  to. 

Three  standard  scenarios  were  developed,  and  simulations  were  run  for  all 
IS  chemicals  for  each  of  the  scenarios. 

The  simulations  were  run  using  the  UIM  and,  for  two  of  the  three  sce¬ 
narios,  tbs  simulations  wsra  performed  by  personnel  with  no  prior  computer 
experience.  These  simulations  provided  proof  testing  of  ths  utility  of 
the  UIM  operational  manual  as  wsll  as  that  of  ths  UIM  itself. 

The  results  of  the  simulations  wsre  analysed  in  three  ways.  First, 
they  were  examined  from  the  standpoint  of  UIM  effectiveness  and  utility, 
with  particular  attention  given  to  the  ccroiN^  ard  recommendations  of  ths 
novice  users.  Based  on  recommendations  produced  oy  this  analysis,  appro¬ 
priate  modifications  ware  made  to  the  UIM  to  improve  its  ease  of  use  and 
value.  Secondly,  the  simulation  results  wsra  examined  from  the  standpoint 
of  compatibility  of  the  U2M  with  ths  VM  anC  validity  of  the  VM  results. 

Any  inconsistencies  or  errors  found  in  ths  VM  program  as  a  result  of  this 
analysis  wsre  corrected  and  ths  affected  simulations  wars  rerun.  Lastly, 
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the  simulation  results  were  analyzed  for  the  purpose  of  ranking  the  15 
chemicals  according  to  their  casualty-producing  potential.  Based  on  a 
careful  scrutiny  of  the  results  for  all  three  scenarios,  a  hazard  ranking 
of  the  chemicals  was  produced. 


C.  CHEMICALS  SELECTED  FOR  SIMULATION 

Table  5-1  presents  the  hazard  properties  of  the  chemicals  selected  as 
candidates  for  spill  simulation.  The  table  gives  the  type  of  hazard  (flam¬ 
mable  or  toxic),  the  lower  flammable  limit  or  threshold  limit  value,*  the 
fire  hazard  rating  given  by  Sdk,**  and  the  toxic  hazard  rating  given  by 
USCG-388.*** 

Fifteen  chemicals  were  selected  for  spill  simulation  from  the  list  of 
candidate  chemicals.  The  selection  was  made  by  USCG  personnel  based  on 
their  interest  in  particular  chemical  cargoes .  Table  5-2  lists  the  15 
chemicals  and  enumerates  for  each  the  type  of  hazard  to  be  simulated  ami 
the  cargo  characteristics,  including  tank  capacity,  cargo  temperature,  and 
cargo  pressure.  The  tank  capacity  represents  the  maximum  sice  of  a  single 
tank  that  is  customarily  used  for  that  chemical  in  U.S.  marine  transporta¬ 
tion. 


D.  SCENARIO  CHARACTERISTICS 

The  spill  locations  and  the  wind  directions  specified  for  the  three 
canonical  spill  scenarios  at  Perth  Amboy,  Coney  Island,  and  bos  Angeles 
are  depicted  in  Figures  5-1,  5-2,  and  5-3,  respectively.  Also  noted  are 
the  assumed  water  and  air  temperatures. 

The  spill  for  each  scenario  was  assumed  to  be  caused  by  a  2 -mater - 
diameter  rupture  in  the  cargo  tank  just  above  the  waterline.  The  rupture 
characteristic!  and  tank  position  with  respect  to  the  waterline  are  de¬ 
picted  in  Figure  5-4.  The  actual  amount  spilled  was  computed  by  the  VM 
(Model  A)  end  was  dependent  on  the  size  of  the  tank  which  was,  in  general, 
different  for  each  chemical,  since  tanks  were  assumed  to  be  situated  for 
the  most  part  above  the  waterline,  almost  the  entire  content  of  each  tank 
was  spilled  and  the  computed  amount  turned  out  to  be  roughly  98%  of  the 
tank  capacity. 


•In  parts  per  million  ss  adopted  by  the  American  Conference  of  Govern¬ 
ment  Industrial  Hygienists. 

••Sax,  H.  Irving,  Dangerous  Properties  of  Industrie!  Materials,  5th  edit.. 
Van  Nostrand  Reinhold  Company,  1979. 

•••U.S.  Coast  Guard,  USCG-388,  Chemical  Data  Guide  for  Bulk  Shipment  by 
Miter. 
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TABLE  5-1 

Hazard  Parameters  of  Chemicals  Considered  for  Spill  Simulation 


CHBUCAL  NAME 

COOK 

TYPE 

OP 

HA1A9S 

EofiSR 

FLAMMABLE 

LIMIT 

<%) 

"Threshold" 

LIMIT 

VALUE 

(PP») 

HASARD  RATING 

FIRE 

TOXIC 

AcetaldahyUa 

AAD 

P.T 

4.0 

200 

Dangerous 

Sosta  haaard 

Acrolein 

ARL 

P.T 

2.8 

0.1 

Dangerous 

Severe  hatard 

Acrylonitrile 

ACH 

P.T 

3.0 

20 

Dangerous 

Moderate  haaard 

AMonia  (anhydrous) 

ANA 

P.T 

16 

25 

LOU 

leas  haaard 

•utana 

BUT 

P 

1.9 

3700 

Very  dangerous 

Negligible 

Sutylene 

BTN 

P.T 

1.6 

— 

Very  dangerous 

Negligible 

Carbon  Tetrachloride 

CAT 

T 

HA 

10 

HonfleaMble 

Severe  haaard 

Chlorine 

cut 

T 

HA 

1 

Hoof  leasable 

Severe  hatard 

Diaetbylaadne 

DMA 

P.T 

2.1 

10 

Very  dangerous 

Sobs  haaard 

Ithyl  1th  ar 

BBT 

P.T 

1.0S 

400 

Very  dangerous 

Sons  haaard 

Hydrogen  Chloride 

HOC 

T 

HA 

s 

Nonflaaeeble 

Moderate  haaard 

Hydrogen  Cyan Ida 

HCN 

P.T 

9.4 

10 

Very  dangerous 

Severe  haaard 

Hydrogen  Fluoride 

HP* 

T 

HA 

3 

Hoof leasable 

Severe  haaard 

Hydrogen  Sulfide 

HD8 

P 

4 

•  10 

Vary  dangerous 

Sons  haaard 

Liquefied  Natural  Gaa 

LNG 

r 

5.) 

ease 

Dangerous 

Negligible 

Liquefied  Petroleua  Caa 

UNJ 

p 

2.2 

1000 

Modarata 

Negligible 

Methyl  hr aside 

HTt 

P.T 

10 

4 

Nodatata 

Severe  haaard 

Methyl  Chlorida 

MtC 

P.T 

8.1 

100 

Highly  dangerous 

Sons  haaard 

Octane 

OAM 

r  • 

1.0 

300 

Dangerous 

Negligible 

Pentane 

PTA 

r 

1.4 

900 

Highly  dangerous 

Negligible 

Phoagene 

PNC 

T 

HA 

0.1 

Non  t  tamable 

Severe  haaard 

Frowns 

PM 

r 

2.2 

1000 

Highly  dangerous 

Negligible 

PtopyUne 

PM 

r 

2.0 

400 

Highly  dangerous 

Minins 1  haaard 

Pr«M>y lane  Oaida 

POX 

P.T 

2.1 

100 

Highly  dangerous 

Soee  hatard 

Sulfur  Dioxide 

SfO 

t 

HA 

5 

Hoof leasable 

Severe  hatard 

Toluene 

TOL 

P.T 

1. 27 

100 

Blight 

does  haaard 

Vinyl  Chloride 

vat 

P.T 

1.6 

1 

Dangerous 

Cobs  hatard 
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0i  SPILL  SITS 

coordinates  of  spill  site: 

4Q*31*25*  N. 

74*00,00"  W. 

Wind  vector:  5*,  4  ta/s 

Su-fact  sea  temperature: 

22*C 

Average  air  te&peraturo : 

28  eC 

FIGURE  5-2.  Scenario  Nap  for  the  Conay  island  Spill  Simulations 


0 t  SPILS  S1$S 

Coordinates  oC  spill  sites 

3J*42*34-  N. 

116*16' 19“  W. 

Wii<d  vectors  0*.  4  ta/s 

Surface  sea  temperatures 

20*C 

Average  air  temperatures 

24*C 

FIGURE  5-3.  Scenario  Nap  Cor  the  Los  Angeles  Spill  Simulations 


h  »  height  of  tank 
d  -  diameter  of  rupture 
b  «*  height  of  rupture  above  bottom  of  tank 
c  ■  height  of  center  line  above  water  surface 

For  simulation  scenarios: 

d  *»  2  meters 
b  ■  0 

c  **  1  meter 


FIGURE  5-4.  Rupture  Characteristics 


From  the  standpoint  of  hazard  ranking,  the  use  of  spill  sizes  which 
are  dependent  on  the  maximum  tank  capacities  for  the  chemicals  is  consid¬ 
ered  to  be  a  valid  analytical  technique  even  though  .  t  results  in  differ¬ 
ent  spill  sizes  for  the  different  chemicals.  The  magnitude  of  the  hazard 
is  to  a  large  extent  dependent  upon  the  amount  spilled,  which  in  turn  is 
dependent  on  the  size  of  the  tank.  Thus,  the  size  of  the  tank  should  play 
a  part  in  the  ranking  of  the  hazards,  which  it  does  in  the  method  of  anal¬ 
ysis  used  here. 


£.  CHECKOUT  OF  UIM/VM  SYSTEM  AND  SPILL  SIMULATION  PRODUCTION 


1.  Initial  System  Test 

To  check  out  the  UIM/VM  system,  spill  simulations  were  run  first  for 
the  Perth  Amboy  scenario  for  all  15  chemicals.  VM  results  were  carefully 
examined  for  errors  and  inconsistencies,.  This  exercise  yielded  several 
logic  errors  that  needed  to  be  corrected.  Also,  several  cosmetic  improve¬ 
ments  were  made  to  the  VM  output  tables  to  enhance  their  ease  of  use. 

Once  these  modifications  were  made,  the  spill  simulations  were  run  for  all 
three  scenarios  (including  a  rerun  of  the  simulations  for  Perth  Amboy). 

2.  Production  Puna 

The  production  runs  of  the  spill  simulations  were  performed  for  the 
moat  part  by  non-computer-oriented  personnel.  Two  methods  were  used  to 
train  the  operators .  For  the  operators  who  had  some  prior  knowledge  of 
the  VM  (but  no  computer  experience) ,  training  was  provided  in  a  short  ori¬ 
entation  session  of  about  one-half  hour  in  duration,  Than,  during  their 
first.  UIM  session  an  experienced  operator  stood  by  to  assist  the  novice 
operators  when  necessary.  After  the  UIM  initial  session,  the  novice  was 
generally  on  his  own. 

The  second  type  of  training  was  attempted  for  those  personnel  who  wore 
totally  unfamiliar  with  the  VM.  These  persons  were  asked  to  study  the  UIM 
manual  for  several  hours.  Then  the  trainee  was  given  a  spill  scenario  to 
run  and,  as  before,  the  experienced  operator  was  available  to  assist  the 
novice  during  his  first  UIM  session. 

Both  methods  of  training  the  novice  operators  were  found  to  be  effec¬ 
tive.  After  the  first  session,  the  first-time  users  could  set  up  and  run 
VM  simulations  completely  on  their  own.  The  only  assistance  needed  was 
for  unusual  computer  system  problems  or  for  interpreting  the  VM  output. 

3.  VM  Modifications 

As  previously  discussed,  the  initial  checkout  simulations  at  Perth 
Amboy  identified  several  VM  program  errors  and  inefficiencies.  Likewise, 
the  production  runs  resulted  in  several  recommendations  for  simplifying  and 
clarifying  the  VM  outp&t  tables.  The  modifications  made  to  the  VM  program 
as  a  result  of  these  findings  are  described  below. 
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The  time -incremented  radiation  flux  tables*  which  have  no  utility 
since  the  revioioa  of  the  flash  fire  model*  were  removed  from  the  VM  out¬ 
put. 


An  unused  variable,  field  ID  4012*  was  reactivated  as  a  flag  to  sup¬ 
press  printout  of  the  ppm  concentrations  table*  since  this  could  be  redun¬ 
dant  in  light  of  the  fact  that  a  concentrations  table  in  units  of  kg/m*  is 
also  printed.  If  the  new  variable  PPMSUP  is  set  to  1*  the  table  is  not 
printed;  if  set  to  any  other  value  or  not  set  at  all,  the  table  is  printed. 
The  kg/m*  concentrations  table  is  printed  regardless  of  the  value  of  PPMSUP. 

In  subroutine  DOSAGE,  the  time-concentration  product  computation  rou¬ 
tine  for  toxic  chemicals*  it  was  discovered  that  the  interior  dosage  was 
being  incorrectly  computed  due  to  a  units  error;  this  has  been  rectified. 
Also,  a  mistyping  of  the  air  temperature  variable,  AIRTEM*  leading  to  a 
misassignment  of  zero  for  this  variable  in  this  subroutine  has  been  cor¬ 
rected.  Further*  if  a  toxic  spill  run  is  requested*  the  Ignition  Output 
Table  will  no  longer  be  printed.  This  has  been  implemented  since  in  the 
case  of  a  toxic  spill*  very  few  of  the  entries  in  this  table  are  appli*  •. 
cable*  and  those  that  are  applicable  are  of  minor  importance  to  the  ana¬ 
lyst. 


In  the  flash  fire  subroutine,  F it' IRE,  it  was  discovered  that  the  form¬ 
ula  used  for  computing  fireball  size  was  incorrect,  and  has  been  amended 
to  reflect  the  change.  In  particular*  the  density  of  the  fuel  vapor  is 
now  being  used  rather  than  that  of  the  combustion  products.  Also  in  this 
subroutine*  due  to  an  earlier  VM  change,  the  value  of  the  secondary  fires 
flag,  NSF,  was  being  incorrectly  assigned  and  was  causing  a  fatal  FORTRAN 
error  to  occur  in  VMEXEC  when  no  request  for  secondary  fires  analysis 
(3004-0)  and  ignition  occurred.  This  has  been  corrected  both  here  and  in 
main  routine  VMEXEC. 

In  MODZ*  the  values  for  *Agma*y  and  aigma-z  at  time  of  ignition  were 
not  being  printed  when  the  plume  submodel  was  in  effect.  This  led  to  mis¬ 
leading  default  values  of  zero  being  printed  in  the  Ignition  Output  Table 
for  these  variables.  This  has  been  reprogrammed  to  be  consistent  with  the 
puff  submodel  printout  format. 

In  subroutine  PATH*  a  logic  error  was  causing  execution  of  Model  F* 
which  determines  the  amount  of  time  needed  to  dissolve  a  water-soluble 
chemical,  to  be  executed  for  certain  immiscible  liquids.  This  was  cor¬ 
rected  by  deleting  the  setting  of  the  model  number  corresponding  to  P  to 
a  non-zero  number  (6)  if  such  chemicals  were  being  considered. 

In  the  spillage  rate  determination  section  of  tha  VM,  certain  combina¬ 
tions  of  tank  geometry  end  lneulative  type  were  causing  floating  point 
overflows  in  subroutine  RXJTC.  This  only  occurred  if  adiabatic  tank  con¬ 
ditions  (2006-1)  ware  specified*  and  has  bean  corrected  by  including  im¬ 
pending  overflow-sensing  lines  of  code  to  protect  against  this  condition 
by  flagging  for  termination  of  the  particular  loop  sequence  where  this  may 
occur*  and  continuance  of  normal  flow. 
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In  Phase  II,  the  blast  damage  tables  were  often  printed  out  with  many 
subtables  showing  no  apparent  damage  for  some  cells.  The  threshold  level 
for  the  selection  of  blast  damage  printout  or  nonprintout  has  been  reset, 
and  very  few  "zero  subtables"  are  now  being  observed,  thus  reducing  a  po¬ 
tential  source  of  confusion. 

Finally,  for  test  purposes,  it  is  now  possible  to  bypass  the  PATH  sub¬ 
routine  and  the  escape-,  spreading-,  and  evaporation-rate  determining  sub¬ 
routines  entirely,  and  to  go  directly  to  MQDC  by  setting  reactivated  field 
10  4013,  BYP,  to  1  in  the  input  file  (default  is  zero).  This  forces  the 
VM  to  use  the  user’s  input  file  values  for  total  mass  liberated  (TMV,  4023) 
in  lieu  of  the  calculated  values)  and  in  the  case  of  the  plume  (continuous 
spill)  submodel,  the  minimum  of  either  time  to  effect  complete  evaporation 
(TE7AP,  4016)  or  the  value  of  the  first  time  in  the  first-specified  time 
sequence*  (TOAST,  5050,  which  is  derived  from  field  id's  6001,  6004  or 
600V)  for  determining  the  value  of  Qg,  the  source  strength  item.  There¬ 
fore,  when  using  this  option  for  a  plume  simulation  (5010-1) ,  the  user  must 
specify  a  value  for  field  ID 's  4023,  4016  and  either  6001,  6004  Or  6007,  or 
else  execution-time  errors  will  occur. 


•Hhen  specifying  the  time  sequence  *or  a  toxic  chemical,  a  time  progression 
should  not  be  used  since  the  VM  will  select  tha  first  time  specified  in 
the  progression,  perform  a  computation  set  based  on  it,  and  then  will  di¬ 
rectly  proceed  to  Phase  II,  ignoring  any  remaining  time  increments. 
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F.  SIMULATION  RESULTS 


The  principal  results  of  the  spill  simulations  for  the  15  chemicals  at 
Perth  Amboy,  Coney  Island,  and  Los  Angeles  are  presented  in  Table  5-3. 

Given  are  the  number  of  deaths,  injuries  and,  in  the  case  of  flammable 
chemical  spills,  the  number  of  buildings  destroyed.  The  figures  for  deaths 
and  injuries  are  the  total  casualties  for  both  outdoors  and  indoors  per¬ 
sonnel.  The  parenthetical  values  show  the  portion  of  the  total  occurring 
indoors.  For  some  of  the  toxic  chemicals,  injury  probits  have  not.  been 
developed  (for  lack  of  data)  and,  thus,  injuries  were  not  computed.  Com¬ 
ments  are  given  in  the  last  column  of  Table  5-3  regarding  the  nature  of 
the  cloud  simulated  (puff  or  plume)  and  the  solubility  and  volatility  of 
the  chemical.  These  comments  are  useful  in  explaining  and  interpreting 
the  results. 

For  ethyl  ether  a  spill  from  two  tanks  was  simulated  (i.e.,  6,000  m3 
rather  than  3,000  m3).  A  spill  from  a  single  tank  resulted  in  zero  casu¬ 
alties  for  ether,  but  an  examination  of  the  results  disclosed  that  the 
vapor  concentrations  at  the  closest  cells  were  very  close  to  the  lower 
flammable  limits.  Consequently,  a  double  size  spill  was  simulated  to  pro¬ 
vide  a  means  of  differentiating  between  this  marginally  hazardous  chemical 
and  the  other  zero  casualty  chemicals  which  produced  downwind  concentra¬ 
tions  far  below  hazardous  levels. 

Acetaldehyde,  acrylonitrile,  dimethylamine ,  and  propylene  oxide  pro¬ 
duced  no  damage  due  to  their  high  solubility.  As  evident  from  the  follow¬ 
ing  table,  only  a  very  small  percentage  of  the  spilled  material  vaporized 
and  the  rest  went  into  solution.  Due  to  the  small  amount  of  vapor,  the 
highest  concentration  at  the  nearest  cell  was  orders  of  magnitude  below 
the  lower  flammable  limit,  as  noted  for  acetaldehyde  and  propylene  oxide. 


Chemical 

Mass 

Vaporized 

(kg) 

Mass  Vaporized 
Mass  Spilled 
(%) 

Concentration 

at 

Nearest  Cell 
(kg/ms) 

Lower 

Flammable 

Limit 

_(kg/m3) 

Aaetaldehyde 

1,690 

0.006 

8.2  x  10"6 

7.6  x  io"2 

Acrylonitrile 

240 

0.010 

Not  recorded 
in  VM  output 

Non¬ 

flammable 

Dimethylamine 

401 

0.002 

«•  •  «• 

Propylene  Oxide 

1,300 

0.005 

5.0  x  IQ-6 

5.0  x  io-2 

Spill  Simulations 
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The  only  other  chemical  that  resulted  in  no  damage  for  all  three  sce¬ 
narios  was  octane.  This  was  due  to  its  relatively  low  volatility.  The  data 
below  compares  the  source  strength  of  octane  to  the  other  flammable  chemi¬ 
cals  which  formed  a  plume  of  sufficient  concentration  to  ignite  at  Perth 
Amboy.  The  source  strength  of  octane  is  much  less  than  that  of  the  four  . 
chemicals  which  ignited.  Note  that  the  time  of  evaporation  for  octane  is 
roughly  an  order  of  magnitude  greater  than  the  others. 


Chemical 

Time 

of 

Evaporation 

(min) 

Plume 

Source 

Strength 

(kg/sec) 

Result 

at 

Perth  Amboy 

Ethyl  Ether 

33 

485 

Ignition 

Methyl  Chloride 

27 

215 

Ignition 

Octane 

200 

52 

No  ignition 

Pentane 

25 

426 

Ignition 

Vinyl  Chloride 

18 

942 

Ignition 

The  maximum  vapor  concentration  of  octane  at  the  closest  cell  at  Perth 
Amboy  was  3.5  x  10“3  kg/m3  and  the  lower  flammable  limit  is  4.9  x  10“*, 
thus  no  ignition  occurred. 

Six  chemicals  produced  casualties  at  Perth  Amboy,  but  not  at  the  other 
two  spill  sites.  These  were  the  four  flammable  chemicals  that  ignited  in 
the  above  table  plus  the  two  toxic  chemicals,  toluene  and  ammonia.  All  six 
of  these  chemicals  exhibited  evaporation  times  more  appropriate  to  plume 
formation  than  puff.  Absence  of  casualties  at  Coney  Island  and  Los  Angeles 
was  due  to  the  greater  distances  between  spill  site  and  nearest  downwind 
cell  and  to  the  less  stable  atmospheric  conditions  that  existed  at  these 
sites  compared  to  Perth  Amboy.  The  nearest  cell  distances  at.  Coney  Island 
and  Los  Angeles  were  5.4  km  and  1  km,  respectively,  compared  to  0.4  km  at 
Perth  Amboy.  Thus,  because  of  the  near-in  spill  site  and  the  very  stable 
air  assumed  at  Perth  Amboy,  the  concentrations  in  ths  plumes  were  suffi¬ 
ciently  high  to  cause  damage  at  the  near-in  cells.  But  at  Coney  Island  . 
and  Los  Angeles,  the  lowering  of  the  stability  and  the  increase  in  dis¬ 
tance  were  sufficient  to  reduce  the  plume  concentrations  to  below  hasard- 
ous  levels.  Thus,  the  six  chemicals  can  be  considered  to  be  marginally 
hazardous)  that  is,  hazardous  only  under  a  fairly  narrow  set  of  conditions. 
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Four  chemicals  resulted  in  casualties  at  all  three  spill  sites.  These 
were  chlorine,  LNG,  LPG,  and  methyl  bromide.  All  four  of  these  chemicals 
were  both  highly  volatile  and  immiscible,  and  the  evaporation  times  were 
sufficiently  low  to  cause  the  vapor  cloud  to  exhibit  puff-like  behavior 
with  concomitant  high  concentrations.  The  table  below  shows  the  evapora¬ 
tion  times  computed  by  the  VM  for  each  of  the  four  chemicals. 


Chemical 

Evaporation 

Time 

(min) 

Boiling 

Point 

(°F) 

Chlorine 

0.3 

-29 

I2JG 

4.1 

-258 

LPG 

6.5 

-40 

Methyl  Bromide 

0.6 

+40 

Chlorine's  evaporation  time  was  shorter  than  the  others,  due  principally 
to  the  relatively  small  size  of  spill.  Because  liquid  methyl  bromide  is 
heavier  than  seawater,  the  VH  selected  a  different  vapor  formation  model 
for  methyl  bromide  than  for  the  others*  the  sinking  and  boiling  model 
rather  than  the  floating  cryogen  model.  The  sinking  and  boiling  model 
'  simulated  very  rapid  evaporation,  presumably  enhanced  by  boiling  turbu¬ 
lence  and  the  concomitant  rapid  heat  transfer. 

Because  of  the  rapid  cloud  formation,  the  vapor  concentrations  of 
chlorine,  LNG,  LPG,  and  methyl  bromide  were  suffioiently  high  to  remain 
hazardous  for  long  distances  under  class  D  stabilities.  For  chlorine,  LNG 
-  and  LPG,  the  casualties  were  greater  at  Coney  Island  them  at  Perth  Amboy 
or  Los  Angeles  because  of  two  effects: 

e  higher  population  density 

e  larger  vapor  cloud  area  due  to  lower  stability  and  greater 
distance  to  vulnerable  resources. 

The  amounts  spilled  and  the  hazard  properties  of  these  three  ahemicals 
were  sufficient  to  cause  the  chemicals  to  remain  extremely  hazardous  even 
with  the  dilution  resulting  from  larger  distances  and  lowering  stabili¬ 
ties. 

In  the  case  of  methyl  bromide,  the  dilution  due  to  greater  distance 
and  less  stability  was  sufficient  to  greatly  reduce  the  casualties  at 
Coney  Island  and  Los  Angeles,  relative  to  the  casualties  at  Perth  Amboy. 

For  WG  and  LPG  spills,  tha  vapor  clouds  were  ignited  by  the  geo¬ 
graphic  cells'  first  encountered,  when  most  of  the  cloud  was  over  the 
water  and  only  a  small  portion  intersected  the  lend.  This  had  the  effect 
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of  minimizing  the  casualties,  especially  at  Los  Angeles  where  the  geo¬ 
graphical  cells  that  bordered  the  harbor  were  not  heavily  populated.  The 
reason  the  LNG  spill  resulted  in  less  fatalities  than  the  LPG  spill  at  Los 
Angeles  was  due  to  the  greater  penetration  of  the  smaller  LPG  vapor  cloud 
before  ignition.  This  is  purely  a  chance  result  having  little  bearing  on 
relative  hazard  potential  of  the  two  chemicals. 


G.  HAZARD  RANKING 

The  results  of  the  simulations  have  been  analyzed  for  the  purpose  of 
ranking  the  chemicals  according  to  their  relative  hazard  potential.  The 
principal  measure  of  hazard  potential  used  in  the  analysis  is  the  number 
of  fatalities,  since  it  is  the  most  consistent  and  accurate  measure  pro¬ 
duced  by  the  VM.  Some  consideration  is  given  to  number  of  injuries  and 
buildings  destroyed;  however,  injuries  are  not  computed  for  some  toxic 
chemicals  (insufficient  medical  data  for  estimating  injuries)  and  struc¬ 
tural  damage  of  course  is  not  computed  for  toxic  chemicals.  Thus,  inju¬ 
ries  and  structural  damage  are  useful  only  for  ranking  between  chemicals 
for  which  the  calculations  were  made. 

A  second  hazard  factor  used  in  the  hazard  ranking  is  specific  lethal¬ 
ity.  Specific  lethality  is  defined  as  the  deaths  per  cubic  meter  of 
material  spilled.  This  hazard  measure  normalizes  the  effects  of  all  chem¬ 
icals  for  a  given  quantity  of  chemieal  spilled  and  provides  a  measure  of 
the  relative  hazards  of  the  chemicals  for  the  same  size  of  spill. 

Table  5-4  is  a  tabulation  of  the  hazard  factors  (total  deaths  and  spe¬ 
cific  lethality)  derived  from  the  VM  simulations  for  the  15  chemicals  and 
the  three  scenarios.  The  chemicals  are  grouped  according  to  solubility 
and  volatility.  The  most  hazardous  category  is  presented  at  the  top  of 
the  list  (insoluble  and  highly  volatile)  and  the  least  hazardous  at  the 
bottom  (soluble,  low  volatility) . 

Baaed  on  an  examination  of  the  hazard  factors,  the  15  chemicals  are 
grouped  into  four  hazard  categories  and  ranked  according  to  hazard  poten¬ 
tial.  This  categorization  and  ranking  is  presented  in  Table  5-5.  Chlo¬ 
rine  is  by  far  the  most  hazardous  chemical.  It  not  only  produced  the  most 
casualties  at  all  three  spill  sites  but  accomplished  this  with  a  relatively 
small  spill,  thereby  exhibiting  a  very  large  specific  lethality  compared 
to  the  other  chemicals. 

LNG,  LPG,  and  methyl  bromide  were  ranked  in  the  next  most  hazardous 
category.  They  produced  significant  casualties  for  all  three  spill  sce¬ 
narios.  Although  U)G  generally  produced  more  casualties  and  structural 
damage  than  LPG,  it  did  it  with  a  much  larger  spill  (25,000  vs.  10,000  m3). 
At  Perth  Amboy  the  specific  lethalities  were  approximately  equal  for  LNG 
and  LPG,  and  at  Coney  Island  and  Los  Angeles  the  specific  lethality  for 
LPG  was  greater  than  that  for  LNG.  Because  each  is  ranked  higher  than  the 
other  for  one  of  the  two  hazard  factors,  it  was  felt  that  a  differentia¬ 
tion  between  the  hazard  potential  of  the  two  chemicals  could  not  be  made 
and  they  were  ranked  equally. 


Specific  Lethality  =  deaths  divided  by  spill  size  (fatalities  per  cubic  meter) . 
'Double  tank  spill. 


Methyl  bromide  was  also  given  the  same  ranking  as  12)6  and  LPG.  Zt 
produced  appreciably  more  casualties  at  Perth  Amboy  than  did  12)6  or  LPG, 
but  the  reverse  was  true  for  Coney  Island.  Although  the  specific  lethal* 
ity  was  about  four  times  greater  for  methyl  bromide  at  Perth  Amboy  than 
that  of  LNG  and  LPG,  it  was  comparable  at  the  other  two  sites.  Consider¬ 
ing  the  fact  that  LNG  and  LPG  hazards  were  not  maximized,*  the  larger  spe¬ 
cific  lethality  for  methyl  bromide  was  not  considered  significant  and 
methyl  bromide  was  given  the  same  hazard  potential  ranking  as  LNG  and  LPG. 

All  of  the  chemicals  that  resulted  in  casualties  only  at  Perth  Amboy 
were  placed  in  the  next  hazard  category.  Of  these,  ammonia  was  clearly 
the  most  hazardous  due  both  to  the  large  number  of  casualties  and  to  the 
larger  specific  lethality.  Vinyl  chloride  and  pentane,  with  approximately 
the  same  specific  lethality  and  comparable  total  deaths,  were  ranked  next. 
Then  followed  methyl  choride  and  toluene,  whose  hazard  factors  were  quite 
comparable.  The  last  of  the  chemicals  ranked  as  "hazardous**  was  ether 
which  did  not  produce  any  casualties  for  a  single  tank  spill,  but  did  for 
a  double  tank. 

The  five  chemicals  that  did  not  cause  casualties  for  any  of  the  sce¬ 
narios  were  ranked  as  relatively  nonhazardous.  Since  the  Perth  Amboy  sce¬ 
nario  was  a  rather  extreme  scenario  in  terms  of  population  proximity  and 
atmospheric  stability,  the  lack  of  casualties  at  Perth  Amboy  indicates 
that  these  chemicals  will  probably  not  result  in  acute  damage  under  most 
large-spill  conditions. 

In  sum,  the  15  chemicals  were  ranked  in  four  major  hazard  categories 
and  in  seven  subcategories.  The  only  chemicals  that  were  ranked  in  the 
most  hazardous  or  very  hazardous  categories  were  insoluble,  highly  vola¬ 
tile  chemicals.  The  only  solvable  chemical  to  be  ranked  as  hazardous  was 
ammonia,  for  which  a  large  spill  was  simulated.  All  other  hazardous 
chemicals  were  insoluble  and  moderately  to  highly  volatile.  All  the  rela¬ 
tively  {unhazardous  chemicals  were  either  insoluble  or  involatile. 

A  final  comment  is  made  regard iug  the  hazards  of  toxic  versus  flam¬ 
mable  ohemicals.  The  toxic  chemicals  in  general  exhibited  the  greatest 
hazard  potential  (for  the  insoluble,  highly  volatile  ohemicals).  The 
reason  for  this  is  that  the  toxic  puff  or  plume  mads  a  long  swath  through 
the  populated  area  and  many  people  within  this  area  became  fatalities.  In 
the  case  of  the  flammable  chemicals,  only  those  exposed  people  in  the  vi¬ 
cinity  of  the  vapor  cloud  at  the  time  of  Ignition  became  casualties.  When 
ignition  occurred,  it  occurred  soon  after  the  vapor  cloud  reached  the 
shore,  and  in  general  only  a  portion  of  the  cloud  was  over  land  at  the 
time.  The  casualties  for  LNG  and  LPG  might  have  been  appreciably  greater 
if  ignition  had  been  delayed  until  the  vapor  cloud  covered  a  more  popu¬ 
lated  region,  especially  for  the  Los  Angeles  simulations  where  the  calls 
near  the  shore  wars  ralativaly  unpopulated.  However,  the  one-shot  casu¬ 
alty-producing  characteristics  of  the  flammable  vapor  cloud  versus  the 


•Delayed  ignition  could  have  produced  greater  casualties  for  LNG  and  LPG. 
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continuous  casualty-producing  effects  of  the  toxic  vapor  cloud,  together 
with  the  early  ignition  likelihood  of  flammable  clouds,  make  the  highly 
flammable  chemicals  less  hazardous  than  the  highly  toxic  ones.  This  con¬ 
clusion  is  based  on  direct  casualties  only,  and  does  not  consider  the  fire 
damage  to  structures  or  the  casualties  that  might  occur  if  a  fire  storm 
occurred  as  a  result  of  widespread  ignition.  Also,  it  does  not  consider 
evasive  tactics  which  could  reduce  the  toxic  casualties  significantly  at 
far-field  downwind  distances.  These  latter  considerations  are  functions 
of  the  effectiveness  of  civil  emergency  plans,  time  of  day  and  day  of 
week,  local  fire  protection  availability,  and  many  other  variables  which 
are  difficult  to  quantify. 


Chapter  6 

FILES  AND  TAPES  CREATED  UNDER  THIS  CONTRACT 


Two  new  chemical  properties  tapes  were  created  in  SCOPE- internal  (SI) 
format,  in  seven-track,  800  BPI,  ANSI-labelled  format.  Their  visual 
serial  numbers  (VSN's)  are  S3216  and  S265Q6=*KW4942,  and  they  replace 
S3984  which  wore  out. 

The  updated  VM  was  recompiled  using  the  optimizing  FORTRAN  processer. 
Both  the  source  code  and  Phase  1,  Phase  2  object  modules  were  written  onto 
a  new  tape,  0S1828.  Also  recorded  on  this  tape  was  the  entire  Chemical 
Properties  file,  plus  the  Default  and  DPI  Values  files,  to  conserve  system 
resources  demand.  The  new  tape  is  a  public-access,  nine-track,  1600  BPI, 
labelled  tape,  VSN=0S1828.  a  request  card  for  this  tgpe  would  look  as 
follows: 

REQUEST ,  TAPE ,  NT ,  PE ,  CT*«PU ,  ID=USCG ,  VSN-0S1828 . 

The  first  file  on  this  tape  is  the  updated  VM  source  code  (VMSVM  or 
OIDPL) »  then,  in  order  of  appearance,  comes  the  entire  Chemical  Properties 
file,  the  Default  Values  file,  the  DPI  Table  file,  the  Phase  1  object 
module,  and  the  Phase  2  object  module. 

As  a  backup  to  this  tape,  a  new  VM  file  set  has  been  catalogued  on 
SCOPE  as  Cycle  IS.  Cycle  15  stores  USCGVULHODLGO,  which  contains  both  up¬ 
dated  object  modules  (ID*USCG)  and  HEWVHSSM,  which  contains  the  updated  VM 
source  code  (ID»USCG) .  Public-accoss  tape  0S7073*has  been  created  to  com¬ 
plement  these  files;  it  contains,  In  the  following  order,  the  entire  Chem¬ 
ical  Properties  file,  the  Default  Values  file,  and  the  DPI  Table  file. 
Jobstream  DISPVH  (Figure  3-1  in  Chapter  3)  illustrates  the  tandem  usage  of 
OS7073  and  USCGVULHQOLGO.  The  total  disk  storage  required  for  Cycle  15  is 
659  SDB’s  (standard  data  blocks).**  Standard  VM  run  jobstream  RUNUIH2 
(formerly,  CHEAPVM)  illustrates  the  usage  of  tape  0S1928;  it  is  listed  in 
Chapter  2  as  Figure  2-6,  Note  that  in  both  jobstreans  VN  output  is  di¬ 
rected  toward  the  printers  at  the  Eastern  Cybernet  center,  1151  Seven 
Locks  Road,  Rockville,  Maryland  20854. 

Tables  6-1  and  6-2  list  the  current  SCOPE-resident  tapes  and  files, 
respectively,  available  under  coast  Guard  account  57205. 


*Nine- track,  1600  BPI,  ANSI-labelled. 

**Th.>re  are  1280  characters  (6-bit)  per  SDB 


TABLE  6-2 

USCGj  SCOPE  Files  Audit 


AUOIT  OF  6000  PEHMNEhT FILLS  FULL  TIME  16*21.36  06/25/79 

StVN*Me»SVSTEHl  _ 

OWNER  PERMANENT  *|l£  NAME  CYCLE  ACCOUNT  UNIT  SOBS  CREATION  EXPIRATION 

SURD  KC*  ATTACHES  -NO.  AtTERS/REWRlTES  ft  ACS  "  "  RB$  VSNM  VSN-2 


USCC  USCGVULHCCL60  IS  S720SHRT  006S  298  06/22/79  03/17/82 

- - Jg - - - "J - o - n — PTOltW — —***••• — 

USC6  NEWVMSYH  IS  ST20SHRT  0087  361  06/22/79  03/17/82 

n  -  '  1  -  - -  0  -  . 13  W0108-  ■•••••• 


Appendix  A 

DESCRIPTION  OF  THE  VULNERABILITY  MODEL 


The  Vulnerability  Model  (VM)  is  a  computer  simulation  which  assesses 
the  consequences  of  hazardous  materials  spills.  When  the  user  specifies 
the  s 

•  characteristics  of  the  cargo  (e.g. ,  chemical  composition,  size 
of  tank,  temperature  of  cargo) , 

e  size  and  location  of  the  rupture, 

e  characteristics  of  the  spill  environment  (e.g.,  marine  charac¬ 
teristics  and  weather  conditions) , 

•  geographical  location  of  the  spill,  and 

•  location  and  characteristics  of  the  vulnerable  resources 
(people  and  property)  in  the  vicinity  of  the  spill; 

the  VM  will  compute  the: 

•  size  and  characteristics  of  the  spill, 

•  disposition  of  the  hazardous  material  (e.g.,  mixing,  sinking, 
dilution,  vaporization,  diffusion,  dispersion) , 

•  concentrations  and  hazardous  effects  of  spilled  material  as  a 
function  of  position  and  time  (e.g.,  toxic  concentration  and 
dose,  thermal  intensity  and  dose,  overpressure) ,  and 

•  number  of  people  killed  and  injured  and  amount  and  value  of 
property  damaged. 

The  VM  simulates  two  basic  types  of  hazardous  ahemicalst  toxic  and 
flammable.  For  toxic  chemical  spills,  the  VM  simulates  tho  development  of 
the  spill,  the  vaporization  of  the  chemical  and  the  formation  of  a  toxic 
cloud  or  prune,  the  movement  and  dispersion  of  the  cloud,  and  the  acute 
toxic  damage  (deaths  and  injuries)  occurring  to  people  residing  in  the 
path  of  the  cloud. 

For  flammable  chemicals,  the  VM  computes  fire  damage  to  people  and 
property  resulting  from  three  types  of  fire  hazards:  pool  burning,  fire¬ 
ball,  and  flash  fire.  Pool  burning  occurs  when  an  immiscible  flammable 
liquid  is  spilled  and  catches  on  fire  at  the  spill  site  while  it  is  still 
in  the  form  of  a  floating  pool  of  liquid. 

A  fireball  occurs  when  a  pressurized  gas  or  highly  volatile  liquid  is 
ignited  as  it  escapes,  bursting  the  tank  and  generating  a  highly  aombus- 
tibia  mixture  of  material  and  air  which  burns  very  rapidly  and  forms  a 
fireball,  The  fireball  hazard  is  common  for  incidents  involving  propane. 


A-l 


Flash  fire  occurs  for  volatile  chemical  spills  which  do  not  catch  fire 
at  the  spill  site  (due  to  lack  of  an  ignition  source)  but  form  flammable 
vapor  clouds  which  are  blown  downwind  and  are  ignited  at  seme  distance 
from  the  spill  site.  The  flash  fire  hazard  can  be  the  most  serious,  be¬ 
cause  it  involves  the  transport  of  the  hazardous  material  from  the  spill 
site  to  downwind  areas  that  can  be  much  more  populated  than  the  spill  site. 
If,  at  the  time  of  ignition,  all  of  the  spilled  liquid  has  not  been  vapor¬ 
ized,  then  pool  burning  occurs  in  addition  to  flash  fire.  Also,  the  possi¬ 
bility  exists  that  under  certain  conditions  the  highly  combustible  vapor 
cloud  can  explode  rather  than  burn.  Hence,  the  VM  simulates  the  explosion 
of  the  vapor  cloud  in  addition  to  flash  fire  and  computes  the  explosion 
damage  to  people  and  property  as  well  as  flash  fire  damage.  The  user  is 
cautioned  that  in  all  cases  involving  unconfined  flammable  vapor  clouds, 
flash  fire  is  much  more  likely  to  occur  than  explosion.  However,  explo¬ 
sion  is  included  as  a  worst-case  consideration,  even  though  it  is  recog¬ 
nized  to  be  a  remote  possibility  in  most  spill  situations. 

The  VM  is  designed  to  simulate  the  consequences  of  hazardous  materials 
spills  at  specific  ports,  harbors,  or  other  marine  locations.  To  do  this, 
the  user  must  specify  the  location  and  characteristics  of  the  vulnerable 
resources  in  the  vicinity  of  the  spill  site.  This  is  accomplished  by 
means  of  a  Geographical/Demographical  file  which  divides  the  area  of  in¬ 
terest  into  cells  and  gives  the  location,  number  of  people,  and  number  and 
value  of  buildings  for  each  cell.  In  simulating  damage,  the  VM  computes 
the  damaging  effects  such  as  toxic  dose  or  radiation  dose  occurring  at 
each  cell;  converts  this  to  the  fraction  of  people  and  buildings  damaged 
at  each  cell,  multiplies  by  the  number  of  people  and  buildings  that  exist 
in  each  cell;  then  adds  up  the  damage  for  all  cells. 

The  VM  simulates  spills  in  confined  waters  as  well  as  open  waters.  It 
also  considers  the  effects  of  tidal  or  river  flows  if  specified  by  the 
user.  The  VM  does  not,  however,  simulate  the  effects  of  topography  on 
vapor  cloud  dispersion;  i.e.,  it  assumes  that  the  land,  like  the  water,  is 
flat.  The  key  parameters  that  determine  the  vapor  cloud  dispersion  are 
the  wind  direction, -the  wind  speed,  and  the  atmospheric  stability  coeffi¬ 
cient. 

In  application,  the  VM  is  one  of  the  key  components  of  the  U.S.  Coast 
Guard  Risk  Management  System,  a  system  of  analytical  models  for  (1)  iden¬ 
tifying  and  assessing  the  principal  spill  risks  associated  with  hazardous 
materials  marine  transportation  and  (2)  determining  the  cost  benefits  of 
alternative  safety  regulations  or  actions  which  reduce  the  risks. 

The  VM  is  a  planning  tool  and  not  a  quick-reaction  model  to  assist  in 
the  response  to  actual  hazardous  materials  spills.  It  is  to  be  used  in 
regulatory  or  safety  systems  analysis  to  assist  in  the  design  and  evalua¬ 
tion  of  alternative  means  to  reduce  the  hazards  of  marine  spills.  Xn'  this 
type  of  application,  the  VM  is  used  to  determine  the  effect  on  consequences 
of  alternative  safety  measures  and  actions.  Typical  applications  are; 
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•  terminal  or  facility  siting  (evaluation  of  the  relative 
hazards  of  alternative  sites) , 

•  facility  design  (evaluation  of  the  effect  on  consequences 
of  alternative  safety  measures) , 

•  vessel  safety  analysis  (evaluation  of  the  effect  on  conse¬ 
quences  of  alternative  means  to  reduce  spill  potential) , 

e  traffic  control  systems  analysis  (evaluation  of  the  effect 
on  consequences  of  alternative  traffic  control  schemes) , 

•  spill  response  analysis  (evaluation  of  the  effect  on  conse¬ 
quences  of  alternative  means  of  spill  containment) . 
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Appendix  B 

UIM  FLOWCHART  AND  SOURCE  CODES 


Figure  B-l.  UIMS/UIML  Flowchart 
as  Procedure  RUXM 
Controls  Them 


Figure  B-2.  UIMS  Listing 


Figure  B-3.  UIML  Listing 
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*X**mmmHm*  >•  i  mmtmmt  *mt*tm**fw 


! 


(froa  unabridged 
veriion,  D1NL) 


(froa  abridged 
version,  OIKS) 


Rigcis 

C  HANOI 
OTHKR 

ir  nc 

T  DATA 

is  rat 

INPUTS 

IIIMY 

PKTPAftS  INtttlttt 
tlUL  (VHWPUT) 
FOIL  VN  BASED  ON 
COMBff  ms 

(ST  OtOO 
AND  (IP 
SSCONDA] 

mn  n 

RAP  HI  CAL 
CALLS)) 

IT  PIKU 
UN  DISK 

RIQOSST 
DATA  Cl 

ip  nc 

|.| 

SAVI  KtW  OK 

Fditrc  pils,  sxv4_ 

IT  A  RANDOM 
4-LSTTt*  HAMS 


•N.».—  Although  this  flowchart  deplete  the  two  prograae  ee  converging  *t  chit  point,  they  ere  separate  end  do  not 
Interconnect.  This  Is  drew  ee  such  only  to  illustrate  the  cieion  forest  of  UIMS  end  UXML. 


FIGURE  B-l.  UIN  Flowchart  (Part  Two) 


B-2 


i.i 

,? 


00010  BASE  1 
“00020-01*  "ZT3t2001  — 
00030  DIM  03127.18) 

“000*0-0050  &-OT3TO - 

OOOSO  F4*0 
•  00060  FS»0 


00070  M5S«PN0P 
00080  2(1*25>*3004 
00090  F8«0 


vvu7u  ro»u 

nnl?A  £KTgB  Y0UR  1<3T  MHfr-RNO  THE  TITLE  07 

-ftrtUn  o&|NT  *Tt<IS  SP*H  SIMULATION  IN'  THAT  OROER-- P 


00120  PRINT 
00130  PRINT  PExAMPLE—  SMITH/LNG  SPILL 

00140  INPUT  NIT -  - - - -  . - 

00150  PRINT 
“00160  MW INI 


NEW  YORK# 


.  00170  N2$«DAT* 

“00180  GOTO “10300 - - 

00190  INPUT  Vf 

00200-IF- Vt*POCO#“TH£N-  00230“-- 
00210  X$«<PREP*RE0A 


00230  XS«#REQUESTEO* 

00240  IF  Vt  ■  POLDP  OR  VfaPNEWP'  THEN-  00280  -  ~ 
00250  PRINT  PINPUT  MUST  BE  EITHER  NEh  OR  OLOP 

00260  PRINT  PPLTASC  REENTERP - 

00270  GOTO  00190 

-00280  IF  VJPPOLOP' THEN- 093*0 - — — - 

00290  GOSUB  09430 

“00300  PRINT - - - — . . 

00310  B3«0 

00320  IF  FG»1'-TPEN  10460“ ~ . . .  . ... 

00330  INPUT  MS 

0Q35Q  PRINT  <vniii3  alOuTo  uhp*  n «-  c « _ _ 


°°3S0  PRINT  •YOUR  ANSWER  MUST  66  EITHER  MKS  CR  BRITISH** 
PRINr-PPLEASE  RETTPE- YOUR  ANSMERP  -  -  **"'*-'*.. 

00370  GOTO  00330 

00380  IF  'Wf  bpMKSP  “THEN-'  00910 - -  - -  - ....  _ _ 

00390  Fl*l 

-•00400'  00  TO  00*20 - - - - - -  . 

00410  Fl»2 

00420  Z(l,  1201*20  -  -  - - 

00430  Z(2*120I«F1 

00440  PRINT  . . . 

00450  IF  F6»l  THEN  00520 

00460- - .....  . 

00470, IF  MS»PlNF0P  OR  MSMlNPUTP  THEN  00510 

™fNT  *VCUR  *NS*ER  MUST  BE  EITHER  INFO  OR  INPUTP 
00490  PRINT  PPlEASE  RETYPE  YOUR  ANStfERP 
OoSOO  GOTO  00460 
0Q510  IF  NS«PInPUTP  THEN  00520 

•00520 -IF- FI*1-TMEN”-00590 _ _ _  _ _  ..  . 

00530  OlfaPCELSIUS.P 

00540  02$«peueic  meters. p 

00550  03»«PMETEPS.P 

00560  04S*PMETERS  PER  SECOND. P  •  . 

00570  IF  F6«l  THEN  10520 

OQSRO-tlOTO"  006*0 - - - -  .  .  _  . .. . . .  i  n  _ _ ^ 

00590  OlSaPFAHPENHEIT.P 

00600  O2SapfH0uSANCS  OF  GALLONS. p 

00610  03fapFJET.P 

00620  04»apFEET  PER  SECOND. P 

00630  IF  F6«l  THEN  10520 

00640  IF  FSal  THEN  096J0 

00650  INPUT  M 


FIGURE  B-2.  Program  UXNS 
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00660  Z(2»2)*V  - -  - -  —  - 

00670  2(1.2>*2004 

00680  IF  Fl*2  THEN  00710 . . .  .  —  . 

00600  Z<3.2)»<W-32>*<5/9> 

-W700-OCTO-0  0??0 - - 

00710  Z(3.2)«w 

00720 'Z(lf  103)  >2036  . . . . . . . — 

00730  IF  *<-200  OR  *>300  THEN  00750 

00740  00 TO  00770  — - - - - - - 

00750  PRINT  PERR0R-- CARGO  TEMP*  IS  OUT  OF  RANGE.  RE*£NTEfi 
■■00760  GOTO’ 00650 - 


VALUE  OR  STOP— -A 


00770  Z<3.103)«Z<3»2> 

'  00780  "IF- F4*r'TF>ER  06400 - 

00790  IF  F6«l  THEN  10630 

00800  INPUT  V . . . 

00810  Z(2t3)«V 

"  00820  -ZTl  fJT»2005‘ - 

00830  Z( 3.3) *4*1 000000 
.  00840  "17  F4«r~THEN  06400' 
00850  IF  F6«l  THEN  10660 

00860  INPUT' V -  - 

00870  Z(2.4)>M 

'00880- ZTr.4T*20in - 

00890  IF  Fl«2  THEN  00920 

00900  Z(3.4)aV«3785000  - 

00910  00T0  00930 

00920T13.4)  *W«T600000 . . 

00930  IF  F4»l  THEN  01060 

00940’  TF  F6»rr  THEN  1 1 0700 - 

00950  INPUT  > 


"00960  -TI2V5HV - 

00970  Z(1.5)«2002 
00980  IF  FI»2  THEN  <11010 
00990  Z<3.5)«M30.48 
•  ~OTOO(T  ~GOTC~~0  TO  2  0 


01010  Z(3.S)-*«100 

01020  If  74»l  THEN  06400 - - - - 

01030  IF  F6»l  THEN  10740 

01040  7<2i6)aV  -  - - - - - 

01050  2<1.6)«2007 

"TmT60rTt3,6T«n  3rn8T»-mT4TTf7V6»  - 

01070  IF  F4»l  THEN  06400 

01080  IF  F6»l  THEN  10600’-  -  — -  ... 

01090  INPUT  ti 

01100  IF  W>0  THEN  01130  *  . -  —  -  •  - 

?!!!T  *Er»0R—  HOLE  SIZE  RUST  BE  A  POSITIVE.  NON-2ERU 

01130  *<2.?>>V 

0 1 140  2U.7H2008  -  . 

01150  IF  Fl«i  THEN  01180 
01160  2 (3«T) ■V*100 
01170  GOTO  01 190 

O'l  1 80"2 1 3  <  M-*V»30V46 — — - - - - - - -  ....  _ 

01190  Ill< 102)«2029 

01200  IF  Z<3.T)>100  THEN  01230 

01210  2(3.102)>1 

01220  GOTO  01240 

01230  2<3.102)>0 

'01240'  IF'FSa't"  THEN~1764'00 - - - - 

01250  IF  F6«t  THEN  10640 
01260  INPUT  V 
01270  Z<2.8)a* 

01280  7<1 «B)«2015 
01290  IF  F|al  THEN  01320 
01300  Z(3*6)>V«100 
01310  GOTO  01330 


NUMBER. A 


FIGURE  B-2  (continual) 
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*01320  ~m»8 1  *w«3o v*a - 

01330  IF  F4* 1  THEN  06400 

0"!  340  TF  FS-t-TFEir-lOrrtr - - 

013S0  INPUT  * 

-onoo  rt snn - — 

01370  Z(l. 91*2003 

"0I380"IF  F1*?THEN -01410 - 

01390  Z(3.91«6*30.48 

01400  GOTO  01420 - -  - 

01410  Z(3*9)*6*100 

— Omo-PHINT - — — - — 

01430  IF  F4*t  THEN  06400 

'01440  IF-F6*T-TKEK-10900 — * - s - 

01450  Z(2.10)»W 

01460  2(1.1011*2028  — - - - 

01470  ZO.lOlla* 

-01480  mrror*zora - - - 

01490  IF  8*1  THEN  01520 

*  01500  2(3.101*1 - - - - 

01510  GOTO  01830 

01520  Z(3*IO)«2' - - 

01530  IF  F4«l  THEN  06580 

~ 01540- tr-F6»l  rT»EN  10990* - - 

01550  INPUT. M 


01560  2(2*111*0 -  - - 

01570  201*11 1*2023 

01580  IF  FT* I  THEN  01640 - 

01590  IF  8>-5  »N0  6<S0  THEN  0162Q 


01610  GOTO  10960 
-01620  Zt3.II)**- — 


15-COT  OF  HPNOerF 


01630  GOTO  01670 

01640  213.11 l*(8-32>*(S/91 —  ~ - 

01650  0*2(3.111 

“01660-t5OTO-Ot590- - 

01670  IF  F4*0  THEN  06400 

*01680  IF  F6*l  THEN  10980'  - - 

01690  INPUT  M 
01700  Z(2«12)*\r 
01710  Z<1. 121*2020 

~o  i  TTO  -t  r-  rr»  T~TH  gw  -aim - 

01730  2(3.121*0*100 

01740  GOTO  01760  . 

01750  Z( 3. 121 *4*30.48 
01760  Z  <1.1041*2045  ‘  •  - 

01770  2(3.1041«2<3»t*l 
"0IT80  -fF '  F*»2' THEN  “06400- - 


01790  IF  F6*l  TfEN  1J020 
01800  GOTO  11020 
01610  INPUT  6 
01R20  212*1 31 *v 
01830  2(1*131*2044 

01840  IF  F  1*1  THEN  0t8T0  - -  ~~  —  - 

01850  2<3.13I«**IOO 
01860  GOTO  01860 
01670  Z (3. 131 ***30.46 
01680  IF  F4*2  THEN  06400 
01890  IF  F6*l  THEN  l 1050 

-Ot6OO~flOTO'ltO*0- - 

01910  INPUT  • 

01920  7(2*141*4 
01930  7(1*141*2047 
01940  IF  F|*l  THEN  01970 
01950  2<3*14)***100 
01960  GOIC  01960 


FIGURE  B-3  (canti&ued) 
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01970  Z<3*l9)«h*30.9e 

-01980  IF  F0»2  THEN  08900  '  - - - 

01990  IF  F8»l  THEN  11090 

-02009-6070-11090 - - - 

02010  Z<2.1S>«H 

-02020  Z  til  15X2052 - - 

02030  IF  »>2  OR  «s3  THEN  02060 

'  02090  "Zt3'»157*703 - 

02050  GOTO  02100 

02060  TF  W»3  THEN  02000 - 

02070  r<3.15)>.05 

■  02080  0070  02100 - 

02090  ZO.15X.10 

'02100“  PRINT - - 

02110  IF  F9«2  OR  F9»I  THEN  06900 

“02120  TF-F6»r  THEN  IT160  - - 

02130  INPUT  6 

“C2190“ZT2»T51 •» - 

02150  Z<1<16I<2016 

02160  “TF  F1<1  THEN  02190 - - - - - 

02170  ZI3>16)*«*100 

02180  GOTO  02200 - - - - - - - - 

02190  Z(3.16X*«30>96 

“O22OO“TT“F8*r-TFEN-O«0O - - 

02210  IF  F6«l  THEN  11160 

02220  212.171  - * - 

02230  Z<1.17)>?0Se 

02290  2l3*I7T«ta -  - - — - - - - - 

02250  IF  F9«l  THEN  06900 

~02200',,TF"'F««rTHEIT-n'2TO . .  . .  T . . . . 

02270  Z<1»19X2Q17 

02Z80  R9»«riff — "  '  - - - -  - - — - : - ~“ 

02290  IF  U1MMP  OR  >t><0*  THEN  02320 

02300  2  0.19X6'  - -* - ’ - —  " - - - - - — - - • - 

02310  GOTO  02360 

-02120"t»-lf«1»»W-THC1N'-02350 - - - 

02330  10,19X9 

02390  GOTO  02390  "  '  " . . . . — — — - ‘ 

02350  ZU.19X2 

■02360  PRINT  . . . >•  •" — — — ■— 

02370  IF  F9a|  THEN  06900 

~o238<nr-r6wr-rfEN-^mo - - - — - - 

02390  INPUT  w 

02900  U»tNTtWI  - — — - - - - — — 

02910  if  «  «»89  THEN  02950 

02920  PRINT  <0E0REE5  ENTRY-TOR  UTtTUCE  POST  B€‘fctS$‘'fNMmO.P  ~ 
02930  PRINT  *Pl€*S£  RETYPE  YUUP  ANSaER.P 

~028«rCOT0'  TTW - - — 1 J — — . . . . . . . . . . . 

02950  U»*5TM»«> 

oi9*o  rr  trvaif>*rtHEN  ozmo  - - - —  ► — “*'-“•** 

02970  UtMOP'UI 

029*0  PRINT  »NCN  ENTER  THE  MINUTES'**  *  “  ‘  ‘  **  “ 

02990  input  < 

-■  ■  -  —  to  m  itf-ii  i  d*  -  —  — ■  mm  f.1  ,  f  iViii  ir  ■  i  i  n  ■  it  n~  muii  ...  i  ■m  ■■■n  .it  i  ■■  ■■■n  —  ■  --  ^  ... 

025tWTI*lNTTWl  "  1  "  ■ 

02510  IF  »  <  60  then  0255* 

02520  PRINT  XINUTE5  ENTRY  RUST  *U«*v5  IE  U$S  7H6N  60.  *  " 

02530  PRINT  *PlE*5E  RETYPE  YCuS 

02590  GOTO  02990  — 

02550  L29*5T»I <61 

“  02580“ TF  CEMLW»c  TVtN-<r25«0“ - - - - - — - “ — “ 

02570 

02500  PRINT  PNCr  ENTER  ThE  StCCNOS**  ““ '  *“ “ 

02590  INPUT  « 

02600  R9R0F<R»  . . .  ‘ 

.02610  V*tNT<*> 

02620  IhM.* 

02630  IF  *«>0  CR  «>«.  TKN  02960 
02*90  L35XC0* 

02650  GOTO  02750 


FIGURE  B-2  (continued) 


"02660  rF-tmu-THEff-treroo - 

02670  PRINT  ASECONDS  ENTRY  MUST  ALWAYS  BE  LESS  THAN  60. A 

—02680  PRINT" APtEASE 1  RETYPE  YOU*  ANSWER. A - 

02690  COTO  02580 

"  02TOO~t*ROFr<r) - — - — - 

02710  W«INT(W> 

02720  L3S«STRS(W> - 

02730  IF  W>*10  THEN  02750 


•02750  LSU)«Ll**L2S«L3S*L7S 

“O2760~Z(  - *201*60 ID - 

02770  PRINT  , 

'02700“ IF  F«  st  THEN- 06400 - - - 

02790  IF  F6«l  THEN  11460 

-02800  "lNPtrm - - - - - - 

02810  W*INT(W> 

02820  IF  W<180  THEN  '02860 - - - - 

02830  PRINT  ACEGREES  ENTRY  FOR  LONGITUDE  MUST  BE  LESS  THAN  180. A 

02840  PRINT  APcEASr  RET YPE-YOUR  'ANSWERT* - - 

'  02850  GOTO  11460 

—02868-  C4t*STR8  (T  > - — - - - - - - 

02870  IF  L£N(L4J)«3  THEN  02910 

02880  L4JaA0A*L4S - - - - - 

02890  IF  LEN<L4*J»3  THEN  02910 

02900  L4S»A0T*L4J - - - - 

02910  PRINT  ANQW  ENTER  THE  MINUTES. A 

-02920~tNPtn-% —  - - - 

02930  W*INT (w) 

02940  IF-W  “<-60  THEN  '02980 - - - - - - - 

02950  PRINT  AMIMJTES  ENTRY  MUST  ALWAYS  BE  LESS  THAN  6QA 

02960  PRINT  APLEASE  RETYPE' YOUR~ANSwER. A - - - 

02970  GOTO  02910 

-O2980-tr5T*STRSTrr— - - - — — — - 

02990  IF  LEN (L5$) *2  THEN  03010 

-  03000  L5S«A0A*L5r  - - - - - - - 

03010  PRINT  ANOW  ENTER  THE  SfcCONOS.A 

03020 "  INPUTTr - - - 

03030  IF  m  <  60  THEN  03070 

"03040  PRtWTTSECONOS  ENTRT  MUST  BE  LESS  THAN  OOfA - - 

03050  PRINT  APLEASE  RETYPE  YOUR  ANSWER. A 

"  C3060  GOTtrOTOlO - - - - - 

03070  W«ROF(W) 

030CJ  L6S«STR»(N)  -  - -  -  - - 

03090  L7W.A 

"03tOO--tF-mnrlO-THEN--03t2t) - — - - - 

03110  L69>A0A«L6S 

03120  LS(2»«L4f.l5f»L6S»L7S  “  —  - - - - ...... 

03130  Z<1.21)«6011 

03140  IF  F4«l  THEN  06400  .  - 

03150  PRINT 

-03T60  -tF-P8»l~  THEN  -mOO - - - 

03170  INPUT  W 

03180  IF  W*I  OR  W»2  OR  W«3  OR  W«4  IHEH  03220 
03190  PRINT  *  YOUR  ANSWER  MUST  BE  1.  2*  3.  OR  4. A 
03200  PRINT  APLEASE  RETYPE  YOUR  ANSWER. A 
03210  GOTO  03170 

•03220-2  - - 

03230  Z(1.10S)sS004 
03240  Ztl.l061«5006 
03250  Z(2.23)>w 

03260  IF  Z<2»2T)«1  OH  Z<2.23)»4  THEN  03290 
03270  Z<3«106)i2<2.23> 

03280  GOTO  03300 
03290  Z <3« 106) »0 

03300  IF  Z(3.l44)«l  ANU  Zl3»145)«l  THEN  03380 
03310  IF  Z (3. 145) «1  THEN  033«0 

03320  IF  Z (2«23)«2  OH  Z<2.23)w3  OR  Z(2*23)w«  ;k£N  03380 


FIGURE  B-2  (continued) 


03330  PRINT  ATHE  CHEMICAL  SPICLEO  IS  NOT  SUFFICIENTLY  TOXIC  TO  CAUSE# 

-W3#o-PWftr-#stON-iFteANT“TC*ic-trtMAoer-A -RUN"Reouesr-tNO-MRe-e»M*oE-is#- — — 

033S0  PRINT  ARECOMNENOEO.A 

03360  IF  F6«l  THEN  11520  -  — - - : - 

03370  GOTO  11530 

03380  TF  2 (2.23) *1  THEN *034 10  - - 

03390  2 (3*23) « 1 

“034  00  “GOTO- - - 

034 1 0  2.(3«23)*0 

03420  "REM  ATHIS  TO  "EDIT  'TYPE  OF  CHEMICAL# - - - - 

03430  IF  2 <3*144)»1  ANO  2(3* 145 ) -1  THEN  03490 

03440"  IF  2 (3.144 ) *1  THEN  03490  - - - - - - - 

03450  IF  2 (2.23)*1  THEN  03490 

-034-60~PRINr-FTHg-CHEKtCAf~SPlLtEO-IS~NOr-Ft<FWA8tg-.-MENCE-THtKt-tAlr-a&r - 

03470  PRINT  ANO  FIRE  DAMAGE.  A  RUN  REQUESTING  TOXIC  OAMAGt  IS  RECOMnENOEC.A 

03480  IF  F6*I  THEN  11530  '  - - - - -  \ - 

03490  IF  2(2.23)>1  THEN  03520 

03500  2 (3.1051*0  . .  ■  . . .  "  . . 

03510  GOTO  03530 

"03520-2  (T.T)5r»  I - - - - - 

03530  PRINT 

'  03540  IF  F4»l  THEN  06830  .  *"  - -  - - - . —  - - *  - . 

03550  IF  F6«l  THEN  11550 

03560  INPUT  * - - - — . . . 

03570  G4>0 


-B<9999~THEN  "0'3620 - - 

03590  PRINT  AYOtlR  ANSWER  MUST  BE  A  F00R(4)  DIGIT  COOE.A 

03600  PRINT  APLTASERETYPE  YOUR  ANSWER .'A - 

03610  GOTO  03560 

"  03620  "2(2.24) *V - "r - - - 

03630  GOSUB  13080 

—03640  IF  gytTl-THEW"076C0 - - 

03650  GOTO  03S60 

~03660  2(1.24)  «1C  - - - - - '* - - - - - 

03670  IF  F4«l  THEN  06400 

03680  IF  F6»I  AND  2(2.23) *1  THEN  11680 - - - - 

03690  PRINT 

—03700  TF-fOa  t-THCNr~1T570 . . . -  . . . . . 

03710  PRINT 

03720  PRINT  AST  ART  OF  FIRST  TIME  SEQUENCE"  lN"SECONDS'*PTt'R"THCA — . 

03730  PRINT  ASPILL  OCCURS.# 

03740  INPUT  tf  - - - - - - - •— - - - -  • 

03750  2<2.27>«, 

"OT760  -2t  3727T*R - — - - r - - - 

03770  IF  F4«l  THEN  06400 

03760  PRINT  ATtPE  BETWEEN  CAMAGE  COMPUTATIONS  IN  SECONOS.A  ‘  **■ 

0379U  INPUT  4 

03600  2(2. 29>»’»  •  .  . . . .  ■— 

03610  2(3.29)a» 

"  03820'*tF'  r4«'l“'  THEN-OOROO - - * - - - - - - . .  - 

03630  PRINT  AENC  OF  FIRST  TIME  SEQUENCE  IN  SECONDS  AFTER  SPILL  OCCURS.* 
03640  INPUT  w 
03850  2  (3.28) 

03660  2(2.261*4 

03870  IF  F4«l  THEN  06400 


■O3680-PR  rNt  irsTaTrrtr  seccKC-TtME-secuENcr  iN-wrwTes-AmN- 7 he-#-  - - 

03690  PRINT  *SPILL  OCCURS. A 
03900  INPUT  4 
03910  ? (2*30 1 r-4 

03920  2(3. 30*4  . . -  -  ■  - 

03930  IF  F4»l  THEN  06400 

03940  PRINT  ATIPE  BETWEEN  CamAGE  COMPUTATIONS  IN  MINUTES. A 

03950  INPUT  4 

03960  2(2.321.4 

03970  2 (3. 32). 4 

03980  IF  F4.1  THEN  06400 

03990  PRINT  «CnC  CF  SECCNC  TIME  SEuuENCE  IN  MINUTES  AFTER  SPILL  OCCURS. A 
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-04000- input-* - — — — — — - - — . .  . . . rv 

04010  Z(2.31)** 

“04020  -m»3n*w  *  - - - — - - , - 

04030  IF  F4*l  THEN  06400 

64040-PHINT  PSTART  OF  THIR0"T1RE  SEQUENCE"  IN  HINUTES"  AFTER'  THE* - — 

04050  PRINT  PSP  ILL  OCCURS. P 

-04060-INPUT  X - - - - - - — - - - 

04070  Z(2.33)*fc 

04000' 2(3 »33T*P  ~  — .  — - - 

04090  IF  F4»l  THEN  06400 

04100  PRINT"  PTIME  8ETNEEN“CAMA0r  COMPUTATIONS-TfrHINUTESiP - - - 

04110  INPUT  W 

-04-120  Z(2.35)»W - - — - - - - - — - - 

04130  2(3.35)** 

-04140  IF  F4*T  "THEN"  00400  — - 1 - - - 

04150  PRINT  PENO  OF  THIRD  TIRE  SEOUENCE  IN  MINUTES  AFTER  SPILL  INITIATION. P 

04160  "  INPUT  4 - - 

04170  2(2.341*4 

-•04160 . 2 (3>  34 ) »< - — - - - — _ 

04190  IF  F4»i  THEN  06400 

•04200  - - 

04210  2(1.291*6003 

04220  211.267*6002 - - - - - - 

04230  2(1.301*6004 

-04240  2<H 32 1*6006- . . . . . . 

04250  2(1.311*6005 

04260  2 1 1*  33 1 *600  7 - 

04270  2(1.351*6009 

04280  "2(17341*6008 - - - —  — - - 

04290  IF  F4*l  THEN  06400 

~ 04300— IF~lrsxypNOp— THE N  04690 . . . . . . . 

04310  IF  2(3.1051*1  THEN  04670 

'04320  “REM  PUSE-CEFAULT  TIRE  SEC*— - - - 

04330  7*2(2.221/(60*2(2. 16)1 

04340  FOR" "1*1  TO  9'  - - — . . -  ..... 

04350  12*26*1 

“-O43*9-2T2Tt2t»0- - - - - - - - - 

C4370  2(3.121*0 

04330  TIE  AT  I  - - - - - - - 

04390  IF  2 (3 .106 1*0  THEN  0*430 

■04400  2(T«'27)*l - - - - - - - -  . . — 

04410  2(3.261*20 

-04420-2T3T2?r*2 - - - - - - - 

04430  IF  T  >  10  THEN  04480 

04440-2(3.30)*?  - - - - -  - - - - — . .  ..... 

04450  2(3.321*? 

04460  2(3.31 1**0  . -  - .  -  -  ...  . 

04470  GOTO  04650 

-0*46 01 F-  - - 

04490  T1*!NT ( (T/S) 1 

04500  Tl*Tl*5  . 

04510  2(3.301*5 

04520  2<3.31>*Tl  -  ~  .  .. 

04530  2(3.3?)*5 

•D4S40  -2(3*34 1  »Tl-««0 - - - - - - 

04SS0  2(3.35)*? 

04560  GOTO  04650  - 

04570  T1*1NT ( (T/50) l 

04560  2(3.301*50 

04590  T1*T1*50 

04600  2(3.311*71 

04610  2(3.321*50 

04620  2(3.33)*T1 

04630  2(3.341*71*80 

04640  2(3. 35)*? 

0*650  IF  F**l  THEN  06*00 

0*660  GOTO  04690  •  ^  ._  . .  .  . 
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04670  2(3»30)«2(3*31)»8Q 

“04680  ^t3*32>*l~  “* - 

04690  PRINT  #00  YOU  VAN*  TO  SEE  THE  LISTING  OF  YOUR  INPUTS*  (YES  OR  NO)# 

04700""INPUT  "NS - - ' - 1 - * — — - ' - 

•4710  IF  NS«#NC#  THEN  05730 

“  O^TgO-PRtNT - - - - - ■ 

4725  IF  F4>b1  THEN  4727 

"4T26~SGT0“ 4730 - - - - - 

4727  XS«#£0ITEr# 

“04730"  "PRINT*  #Tt»E "  POCtW  tNG  "tS~*-rrST  "OF-  THE-#  TVS  r#"P  ICE“YOU"H/We-#t<S — 
04740  PRINT 


04760  PRINT  T*8  (10)  <#PRE$SURE«*#*#ATMCSPHERES»# 

"04770"  PRINT ~nkr(TO)T#TENPE)Tfl1i  ORE*#»OrS - 

04780  PRINT  TA8(10)I#LENGTH-#*C3S 

“O4790“"FRI)rrTASTIffM#VOLUNE-#TC2S - 

04800  PRINT  TA8(10>»#V£LOCtTY-#.Q4S 

~C4810'"PRINT - 

04820  REM  #UST  OUT  THE  UlH  FILE  TO  THE  TERMINAL# 

-04830~PRTNr USING  04840 - 

04840  I  NUMBER  OF  INPUT  NAME  OF  INPUT 

"~0485<rPR  INT - - 

04860  PRINT  USING  04870*M1S 

~‘*04B70'*'T - 1 - CMEM  rCAtrCOCE - - 

04880  PRINT  USING  04890*2(2.2) 

"04890-t - 2 - CANPC-TEMPIPATUHE - - 

04900  PRINT  USING  04910.2(2*3) 

'  04VIO  1 - T - TANK  "PRESSURr - - 

04920  PRINT  USING  04930 .2(2*4) 


USER  INPUT 


"5i32‘f5S — 


04940  PRINT  USING  04950*2(2*5) 

04950  1 - 5 - TANK- HEIGHT - 

04960  PRINT  USING  04974*2(2*6) 

04970-1 - 6 - FRACTION"  TANK“PItL‘tt) - 

04900  PRINT  USING  04990*2(2*7) 


05000  PRINT  USING  05010*2(2*8) 

05010") - - r8 - - MEIGHT-OP-CEWERLIKE — 

05020  PRINT  USING  05030*2(2*9) 

05030  1 - T - "PCrGPT~GF  TfOCE  "BOTTOM" 

05040  PRINT  USING  05050*2(2*10) 


sSSflSS — 


0S060  PRINT  USING  05070*2(2*11) 

WTO- T  -  — ir - W  TER*  TEMPERATURE - - 

05080  IF  Z(2*10)"1  Then  051T0 

05090  PRINT  USING  05100*212*12) - - - - 

05100  t  12  CHANNEL  ftICTH 

--osho-print-us  ikg -osimmro) - 

05120  t  13  AVERAGE  KlVER  DEPTH 

05130  PRINT  UStNO  05t*0*E(2fl4>— . .  . 

05140  I  14  AVERAGE  RIVER  VELOCITY 

05150  PRINT  USING  03100*2(2*15)  . 

05160  I  15  TYPE  OF  RIVER  BANKS 

""CSnO- PRINT*  US  TNO**  OSTROvg't'g'fTO) - 

05180  l  16  AVERAGE  VINO  SPEED 

0S190  PRINT  USING"  05200«2(2*1T) 

05200  I  IT  VINO  DIRECTION 

*  05210- PRtNT  USING  05220*2(2*  18) . -  . . 

05220  )  18  AT<  TEMPERATURE 

05230  PRINT  USING  05240.M9S 

05240  )  19  ATM TSPHEHIC  STABILITY  CODE 

'  05250*  "IF'  Vt*#NEV  # *  TNtN  0529  0"  '  - -  -  . 

05260  LEY  LIS«SU8STR (LS ( 1 1 ♦ 1 *2) 

05270  LET  L2S»SU8STR(L*(l)*3»2T .  . 

05280  LET  L3S«SU8STfi (L» ( 1) .5*2) 
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-  -<re?9crpRi  n  roSTNG0S3Co.trs.r2S.L3* - — 

05300  X  20  DEGREES  LATITUDE  >==  >==  >== 

"TT531 0~rP ”VTaf#KEW»_TI“EK  053S(T — ~ - — 

05320  LET  L4**SU8STfi(LS(2).I.3) 

-05330-LET  L5S«StiflSTRCtS  (2)  TC.-27 - t - 

053*0  LET  L6S«SU6STR(LS<2).6.2> 

•  O5350'  PRINT  CSmg-053e0tL*»TC58^L0» - - -  - 

05360  i  21  DEGREES  LONGITUDE  >===  >5=  »== 

•  053T0-PR1NT-  USTNG"053F0'»'2T2T221 - 

05380  X  22  DISTANCE  OF  SPILL  TO  SHORE  5555=. =5 

0 5 39 0  PR  IN  T '  USTN G  *054 0  0  V2'(  2  .23 ) - " - — 

05400  t  23  TYPE  OF  OARAGE  5 

"  '05*10'  PRINT-USING  05*20 *2 (2.74) - 

05*20  1  2*  GEOGRAPHICAL  FILE  5555 

05*30  IF  T(2»23>»T  THEN"  05*60 - 

05**0  PRINT  USING  05450. MSS 

-05450  1 - 25" - SECONDARY-FIRES - >515 — 

05460  PRINT  USING  05470.2(2.26) 

— 03*70— T - 26 - PDPOCATlON-SHEtTEREB - !-li — 

05480  B3«0 

•  05490-rn  .T2i  r«30 - 

•  05500  IF  83S«*NO*  THEN  05710 

05510  B3»T  - - - - - 

05520  PRINT  USING  05530.2(2.27) 

“05530“) - 27 - 5EG  t  N'  T  IRS  T -  Tt  WE-SEOUENCE - 5=55 - 

05540  PRINT  USING  05550.2(2.29) 

-0555O-J - 28 - BETDEEN-FIRST-TtNE  SEQUENCE . . -=55' . . 

05560  PRINT  USING  05570.2(2.28) 

05570' '« - 29 - - END  FIRST-TIME'  SEQCENCE  - - 5555' . 

05580  PRINT  USING  05590.2(2.30) 

-05590-1— - 30 - SEOir-SECONC-riMC-SEQUENCE - 2fH— - 

05600  PRINT  USING  05610.2(2.32)  ■ 

05610  r - 31 - SETNEEir SECCNO~TtME  SEQUENCE - 555' - 

05620  PRINT  USING  05630.2(2*31) 

"  05630  'T - 32 - END" SECOND"  TINE”  SEQUENCE - 5555  "  . 

05640  PRINT  USING  05650. 2(2.33) 

— QS650  -) - 33 - BEGIN— TMtRO . TtPfr  SEQUENCE - 55*5 - 

05660  PRINT  USING  05670.2(2.35) 

"  05670  1 - 3* - BETXEEN-THlRD-TtME  "SEQUENCE - - - '555 — — 

056G0  PRINT  USING  05690.2(2.34) 

05690  « - 35 - EWrmRO'TIME "SEQLENCE - 5555 - 

05700  GOTO  05720 

— 05710'  B3«0 - - - 

05720  PRINT 

05730  PRINT" - - - - - - 

05740  PRINT 

05750  PRINT  *00  YOU  RANT  TO  MAKE"ANY  CHANGES'  TO* -  - - - 

05760  PRINT  *  THE  CONTENTS  OF  THIS  FILE  (YES  OR  NO)*) 

-"0577G-TNP0T-X2T - — - - 

0S7a0  IF  X?S«*NO*  THtN  0S830 

05790  IF  X2S«*YES*  THEN  05820  . . . . 

05800  PRINT  *Y0UR  ANSWER  RUST  BE  EITHER  YES  CR  NO.* 

05810  GOTO  0S7SC  ’  . 

Q5820  GOTO  05970 

"  DSeSO-'PRtNT - - - - - 

058*0  PRINT  *C0  YOU  WANT  TO  HUN  A  VM  SIMULATION* 

05850  PRINT  *USING  THESE  CATA*I  . 

05860  INPUT  YS 

05870  IF  "YSMYES*  OR  YSMNC*  THEN  06000  . . . . . 

05880  PRINT  APtEASE  ENTER  EITHER  YES  OR  NU.* 

0S890  GOTO  058*0 

05900  IF  W1»ALISTA  THEN  04760 

05910  IF  WS"*YES*  AND  KSOAYESA  THEN  05970 . .  * . 

05920  IF  Nt«ANOA  THEN  05830 

05930  IF  N*«*YES*  THtN  06170  — '  . 

05940  PRtNT  *Y0UR  ANSWER  RUST  BE  EITHER  YES  CR  NO.* 

-05950 "PR INT-*PlEA9E  RETYPE  YOUR  'ANSoERsP - 

0S960  GOTO  06*60 
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05970  F4*l  ~  . . . . 

05980  PRINT  A1NPUT  NUM8ERAI 

05990  GOTO  06200  * - - 

06000  PRINT 
“960TO-PRINT-.-V 
06020  INPUT  WS 

“06030 -trTfroiNOif  TNEN-twuer- 
06040  IF  WS*AYESA  THEh  06070 
-  06050  "PRTNT-TA  'STHPLE  YES-CR-NC~wrt:t-OC.r— 
06060  GOTO  06010 
—06070  ooro~06  twr 


06080  IF  YSaAKO*  THEN  13060 

"06090  "ir  YtwAYESV  THEN- 1 1970" - 

06100  IF  F8«0  AND  F4>0  THEN  06130 

"06110  "ir  F8*0  THEN"  09410 - 

06120  IF  F8«l  THEN  06150 

~0*r30TS*trS - 

06140  GOSU8  09430 
“06150  GOSU8  08180 
06160  GOTO  06080 

06180  PRm  #TOECMN^GElpR  TKE  ^UMBER  OrTHE^NWr  THA^WrW*NT^  ~  * 

."ooroiTTwr 

06200  INPUT  C 

"«>2  lore*  rimer  — 


06220  IF  KSoAyES#  ANO  C>0  AND  006  THEN  06250 
0624o~GOTOT0617010  R£SP0NSES  ***  NUMBERS  TROH  1  TO“3?  OKLY.A" 


06260  IF  C»10  THEN  06280 
~  06270  “ON  XT  GO  TO  “06360"  10590 
06280  IF  C>20  THEN  06310 

0629<rCi*C-10"  -  - 

06300  ON  C  GOTO  10960  •  06600 
“TIG 31 U  If  C»J0  THEN  0/320 
06320  0020 

" 06330 “IF  06"  AND  63SOAYESA  THEN'  07150  ~  . — 

06340  ON  C  GOTO  11460  •  11480  ♦  06850  .  07350 
06350-PRINTUSING  05570*2 (2 ,287 


"*"'1063 0~»  T06SC "*“10700“  to 740“ r  '10800-  T 


06600  *  06600  *  06600  .  11160  *  11180 


•  07080  .  1U80  •  03710  «  03780  «  03 


06360  PRINT  *T0  CHANGE  THE  CHEMICAL  CODE  YOU  MUST  00  SO  «Y  CREATING* 
nHiNI  "!  NlV  MLC*  tOU  INb-  THTTHEHlCAr  CODE  IS  NttTTOSSIBLER  - 
.. PRINT  ABECAUSE  OF  THE  DEPENDENCY  OF  THE  OTHER  VARIABlESP 

06390  PRINT  'MON''THE~CHEMICAL"RROPEHTtES*ETC»'lf - 

06400  IF  F6<»2  THEN  06430 
06410' PR  INT>MORE  CHANGE  STYES*  NO"  OR  tlST7AT- 
06420  GOTO  06460 


06440 
06450 
06460 
06470 
06480 
“06«9Tr 
06500 
06510 
06520 
'  06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
"066IO- 
06620 
06630 
06640 


print  a  Input  yes  or  no ^ a  ”  "rNPt"rs*# 

“PR tNT 'TAtr-YOU  'NEED '  A  f  IST“"OF~YOUR  *P1LE"ANSNEM“ttST".A - 

INPUT  WS 

GOTO  05900  . . — -  - - - - - 

IF  F6«2  THEN  1 0900 

PRINT  APRCCESSEO.  HOWEVER  PLEASE  NOTE  THAT  1)  IF  YOU  ARE* 

PRINT"  ACMNGtNG'f  ROM  'AN  CPEN  WATER  LOCATION<COCE«lI  TO  AA 
PRINT  *RIVER  OH  CHANNEL  LOCATION  FURTHER  OUESTIQNS  AbOUT# 

a*VER"OR  CHANNEL  Witt’  8E 'ASKE0-T3R '27-  ir-roU’ AREA-' 
PRINT  ACHANGING  FROM  A  RIVER  OR  CHANNEL  LOCATION  TC  AN  UPENA 
PRINT  AWATEfi  LOCATION.  YOUR  PREVIOUS  INPUTS  WITH  REGARD  TOA 
PRINT  ATHE  CHANNEL  OR  KlV£R  WILL  8E  IGNORED. A 

GOTO"  10900— - - - - - - 

IF  Z(2.10)>1  THEN  0640U 

GOTO  '11000 . . - . . . . — . . -  .. 

IF  2 (2. 10 ) *2  THEN  066S0 

PRINT-  »THT5-2NPUr-fr-U9KM)NCr-WHEir-THf“SRICirCOCAT-hrt»“I-S**tW"*-*— 
PRINT  ARIVER.  YOUR  PREVIOUS  ANSWER  SPECIFIED  AN  OPEN  WATER  SP1LLA 

?2I«T*^OC*TION*  WC'MHINO  PROCESS  CANNOT  ENABLE**. .  . 

GOTO  06400 
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'-—wr.iai.wni 


1  iMlV •  . 


06650  c»c-r 
06660  F4»2 


06680  IF  B3SMN0#  THEN  0*320 

06690  PRINT"  #  THE'  DTST ANCE-" FROM '  THE"  SPILL-T0-SHOREC1NE  VALUE# - - - 

06700  PRINT  PIS  USED  BY  THE  PROGRAM  TO  CALCULATE  THE  CEFAUuT  TIME  SEQUENCES*# 

^  G671 0‘  PRINT' #SINCE'-YOirOVERRIK)E-THE-riME-  SEOLENCESr-TrrS  "INPUT"  "HAS# . . . - 

06720  PRINT  #N0  REAL  MEANING.  CO  YOU  PANT  THESE  SEQUENCES  ES  -SEO*# 


• - - - -  »  ■  ■  »  i  "w«»rr  w  «kih  VUHI  V  I  It  |  Db  VI 

067*0  PRINT  POSING  THE  NEP  VaLLE.P 

06750  PFINT'PiNPUr  YES  OR-tfC.#  . . . . .  -  - 

06760  INPUT  PS 

06770'TT  iS#PYESP'Ofi-p$«#NOP  THEN  06810' - 

06760  PRINT  PYOUR  ANSPER  MUST  BE  EITHER  YES  OR  NO.P 


06800  GOTO  06760 

'O66I0'Tr‘¥S’*PNCP"THErr664O0 - — - - 

06620  B3S«PYESP 

"06836  - - - - 

06840  GOTO  04320 

-66850  Ti»rt2.231 - - - - - - 

06860  PRINT  POAMAGE  C0DE<1»2»3  OR  4)P» 

'  06870  GOTO- 03170 - - -  - 

06880  IF  2(2.23)«T1  THEN  06400 

06890‘IF  TI>r  ANO- 2<2,23>>r  THEN-  01020  -  . . — . — . . . 

06900  IF  TUI  ANO  2<2.23)>1  THEN  06960 

~069T0— PRINT - 

06923  PRINT  PYOUR  REQUESTED  CHANGE  TO  TOXIC  DAMAGE  HAS  BEEN  PROCESSED.# 

06930  PRINT-PYOUR  PREVIOUS-INPUTS -PlTH-REGARC  TO-KRE-DAMAOE'irlLt  BE#  - 

06940  PRINT  POISCARCEO.P 

06950  GOTO  06400  - - - - - -  - 

06960  F4»2 

-06970  PRIM - - - - - - 

06980  PRINT  PYOUR  REQUESTED  CHANGE  TO  FIRE  DAMAGE  HAS  BEEN  PROCESSED.# 

06990- T>R  IN  T-PTPE  PROGRAM'  PTCL-  NOP  ASK  YOU"  FUN  THER  "QUE ST  ICNS~NEEOEO  FOR#- - 

07000  PRINT  PTHE  VULNERABILITY  MODEL  IN  MODELING  FIRE  DAMAGE.# 

~0  7010  GOTO  ~1TS70 - - — - 

07020  PRINT 


•  ......  r.wvn  ni.«wh4ibW  Ul’PITUt  in  I  PC  |  Trt  Ur  T  Jflt  DynWvlCrTWa  ptCIsP  ■*- 

07040  PRINT  PPROCESSEO,  YOUR  INPUTS  PITH  REGARD  TO  3ECONCAHY  FIRES  AND# 

?I2f!T£nJNr ^PThE' FRACTION  OF  THF  FOPULATIOR SHEtTERECrHAVE- NOT~CHANGEQ<#-  - . 

PRINT  *V0°  P*Y  E0IT  ThESE  SEPARATELY  IF  YOU  PISH  TO  CHANGE  THEM.# 

07070  GOTO"’ 06400" - - - - — - - - - -  _ 

07080  IF  2 (2«23) > 1  THEN  IIS70 

-07090  GOTO  OTltTO - —  — _ _ _ _ _ _ _ _ 

?2JNT  #THlS  USER  lNPUT  IS  0m,V  0SEU  *****  REQUESTING  THE  VULNERABILITY# 
07110  PRINT  PMOOEC  TO  "SIMULATE" "FIRE  OAMAGET'SiNCE  YOU  REQUESTED  A  RUN# 

07120  PRINT  PMOOELING  TOXIC  DAMAGE.  THIS  INPUT  IS  NOT  USED.  THE  EDITING# 

0*130  PRINT  PPROCESS  CANNOT  BE  ENABLED.#- - - -  - . 

07140  GOTO  06400 

-D  7150- PRINT - ; - : - - - 

07160  PRINT  PTHE  PROGRAM  HAS  CALUULAfEO  THE  DEFAULT  TIME  SbOUbNCES*  PER# 

07170  PRINT  PYOUR  REQUEST,  00  YOU  NOP  WISH  TC  OVERRIDE  THESE  TIME  SEQUENCES*# 
07180  PRINT  PINPUT  EITHER  YES  CR  NQ.P  ^ 

07190  INPUT  PJ  .  . . 

07200  IF  PUPYESP  OR  PMPNOP  THEN  O7240 

07210  PRINT  PYOUR  INPUT  MUST  BE  EITHER  YES  OR  NQ.# 

07220  PRINT  PRUEASE  RETYPE  YOUR  ANSPER. P 

07230  GOTO  0T190  . . . 

07240  IF  «S*PYE5P  THEN  072M 

07250  GOTO  06400  ~  . 

07260  B3UPYE5P 

-0T2T0- "PRINT- PBECTOSE-OR-THe-INTEROEPENOENCrOP-THE-TtME-SetroCNCESl  YOU# - - 

07280  PRINT  PPIL:.  BE  REQUESTED  TO  CHANGE  ALL  OF  THEM  DURING  ONE  EOII.# 

07290  PRINT'  . .  -  -  .  ...  ... 

07300  F4«2 
07310  GOTO  03710 
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07320  IF  e3S«>AYESA  THEN  071S0 

-07330  C»C-30 - 7 - 

07340  ON  C  GOTO  03940  ♦  03990  *  04040  »  04100  *  041S0 

07350  "PRINT '  AGEtJGRAPHlC~FILEA I - - - - -  *  "" - 

07360  GOTO  03560 

“07370  “HEK  ‘FSOff  “TO“SET'  UP-  CHEMlCAtr  ?  ILE A - 

07360  OAT*  0». 641. 36000.3Sa..ll00.1.1.1 .1.4.1. 00. -9.9315. 2. 0488.0*0. <26.100.-26. 

07390  DATA 1  0  ♦  .682VJGffOtr.O  *7500*  I  *'  'TOtT. 2 . 1 Y36  <  *28. 33  <  2»2 TTOVOTtOO f.  100 .999 ~ — - 

07400  OATA  0.1. 59.0.0. 0.1. 0.0. 1.0.2. 50. -6. 29.. 406.0*0. 1000. 100. 999 
'  -074r5  TrATA  0»i;4-24.0-.OT0.r»0*0n.0.2764*--3r.45TT.-13»--7V4T?.9.jT4-*tOO.999-"  — -  — 
07420  DATA  0.1. 191.0.0.0.1. 1.0. 1.0. 1.0. -16. 85. 2. 804. 0.0. 10.. 100. 999 

“  07430 "OATA -O.V99290.TfO*TiirO. T.O.I. 00. -2S.87»3.3S49?^79e?2^9fS2. .100.999“ . 

07440  °*!*  0. *4150. 13720.338. .1069. 1.0.1. 0.2.2. 75.0. 0.0.0. 0.100. -161 _ 

07460  0ATA  oil  .38.0  lo.oIno’oino’l.QO.  *19. 274. 3. 686.0.0.5*.  100. 999 

*  07470'  OATA  -OT.®99T0T0V0-.l  .TVOVrr0TK43r-297422,-T.0aH.ffi-0.20.1G0i999- - 

07460  DATA  0*1 .374.36000.350. . 1100. 1 . 1 .0. 1 .0. 1 .43.-31 .343 .3.008.0*0.70. 100.999 

*  0 749  0"~D  AT  O'.  17434  *0  90  .Ofr.nOn.-O .  r.  0  0  * -1 576  7  .271 .0  .071 0  <7007999 - 

07500  0ATA  0..58. 15845. 350. .1079. 0.0.1. 0.6. 5. 2. 75. 0.0. 0.0. 0.100. -60 

~075TO-PATA"Or.60.IS9'6B.'4327'.'m2,.0<  0.1.0 .6T2T7S.  OTg.O.QTO  ♦ rO0T*79 - 

07520  0ATA  0.. 70. 15845. 350. ♦ 1079. 0.0. 1. 0.6.2. 75. 0.0. 0.0. 0.100.-45 

“075301)  AT  A  0.755715827.35077X1 OO. 0 .0 .IVOVSiS  .2775.0 .0 . 0  *  0  »0 . 100.69 - — 

0T540  DATA  0. ,702. 15903.350. . 1078.0 .0 . 1 .0 . 12.5.2.75*0*0.0.0.0. 100.-40 

' 07550  DATA  0.7637 19867 *385 . .TO 77 *0.0 .170*8 .0.75. 0,070* 0 . O  f  I  GO » *49  * . — . 

07560  DATA  0. .53, 1S809 .390. . 1 130.0.0. 1 .0.5.2.7S.0.0.0»0,(1 .100 .-S3 _ 

07560  OATA  0*. 9 1,14613, 350.. 1100, 0,0, 1,0, 2. 5, 2. 75, 0,0, 0.0, 0.100.-76 

'  07590  UATA  '07  70170.0 70 7 1717 0 . 17 4 . 5.T74T,-'29742.3 .0067 O7T077 1000.1  OO .-999 - 

07600  OATA  0 . .86,600 . .350 1 174 . 1 • 1 . 1 . 1 ,4 >2.0 ,-7*415, .509 .0,0. 1000, 100.-37. 

"O76t0-OATA“0r.'6T»60O77-350mr307t*O.X.r.9*-2.5f“6i794-f.-408.-O.'0.1000rl0O.-7.2 - 

07620  OATA  0. .78.800,350 .. 1 100. , 1 . 1 , 1 .0. 2. 5.2 .75.0,0.0 .0. 1000 . 100,-38. 

0TB30"UATA  ~  0..6B. 800  7350  ♦  1 1 00-rrr.T.  t  VO  .4  ;tS-f2TT5vO»0  rffvOTfOOOvKHh^W. - 

07640  OATA  0. .92.800 .350. . 1100. . 1 .0. 1 .0. 1 .5.2 .75.0*0.0.0. 1000 . 1C0.0. 

-  "07650— WATTTEA0C3T27 » I 81 - “ - — - - 

07660  RETURN 

07670-RER  ASUr  TO“EOrT'TRREr-COO^« - ~  - - 

'“07660  F2*0. 

07690  A3S*AARLAMAC8TCLXHCCHFXLNGNT3PH(jHCNhQSSFDi»  - 

07700  FOR  1*1  TO  LEN (A3S1  STEP  3 
07710  IF  SUeSTR(A3S.I.3)«4*  THEN  07800 
07720  NEXT  l 
07730  11*36 

07740  A3S**BUTeTR£E7i.PGOAM»T4PRPPPLVCMACKPOXTOlAADOMAHTC* 

07750  FOR  K«1  TO  LEMA3J1  STEP  3  - 

07760  IF  SUB$TR(A3J.K.3)*4X  THEN  07790 

07770  NEXT  K  "  , . . 

07780  GOTO  07830 

"07790  f*ll«K  . —  ■  - - — . . . ~ 

07600  F2«l 

~ OT610'K4>'fT*2TT3 - 

07620  GQSU8  07840 

"07630  RETURN  . . . 

07640  REM  ASUB  TO  SET-UP  CHEMICAL  PROPERTIES A 

07850-771.1351  »2C06 - - -  - - - - - - - - -  - - 

07660  Z(3»13S1*C3(K4.1> 

07870  2(3.136) *C3 (K4.2 1 
07660  2(1.1371*2011 

07890  273.137)703 (K4731 . — - - - - -  '  - - - 

07900  2(1.1381*2022 

07910  7(3.X38)*r.O  . . . . . . . . .  “  * 

07920  2(1.1391*2033 

■0793(r-7(3rr397*CTtK4*«r - - -  • 

07940  2(1.1401*1019 

079SO  7(3.140>*C3(K4.5>  . . .  '  ~  * . . — .  ‘ 

07960  2(1.1411*2043 
07970  2(3»141)*C3(K4.0> 

07980  2(1.1421*2046 

*  07990  Z(3.t4M«0i0* - *  - - - - - 
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08000  Z(1*I43>*5002 

-Tworo -rr3nwr«c3iKrvri — — ~ - - - 

08020  Z(3*144)*C3(K4*8> 

08030'  T(3*I45)*C3  (WW - - - 

08040  2(1*1461*5005 

■08080  Z(3*146)»'0 - - 

08060  2<1*14?>»5019 

-  08070  -Zt3Tl4Tr»C3  f K4f 701 - - - 

08080  FOR  I«1  TO  7 

-  08090-  rr*t4T»r - — - - 

08100  I2«$029*I 

■-ctnrmw - - — - 

08120  2(1*111*12 

“081 30"T  C3rrn  »C3TX4Tr  3) - — - — 

08140  NEXT  I 

“"08150  rnnS5T55020 - — 

*  08160  Z(3*1551*C3(K4.181 

08 1 70"' ffETUffN - 

08180  REM  ATHlS  SUB  USEO  FOR  OUTPUT  TO  A  FILE A 

-08190-0*1 - 

.  08200  IF  V$*XNEMvi  THEN  08220 


-08210-0*3 - 

08220  FILE  50*0* 


082SC-PR1NT-SO - - 

08260  PRINT  50  USING  08270 *M1J,H1S 


08270  *1001  '5=5 - tsrS* - 

08280  PRINT  SO  USING  08290*2(1*24) *Z(2*24> *Z(2.22) 

“08290  * — rs“sssS - *2555753 - 

08300  PRINT  SC  USING  08310*2 < l .120) *F1 

'  08310  1  '  :: - 5 - - - 

08320  PRINT  SO  USING  08330*2(l*l21>*e3 

08330  •*“  'sS - - = - - 

08340  PRINT  SO  USING  083S0»Ztl.4> *Z(3.4) ,2(2*4) 

~083SO  "15555  s.5555**** - 5s  5  5355 '.5  3 - 

08360  PRINT  SO  USING  08370*2(1*5) *2(3*5) .2(2*5)  _ 

08380  PRINT  io~GilNQ  08390*2(1*91 *2(3*9) *2(2*9) _ 

08400  PRINT  jo'uSING  08410^2(1*2) *2(3*21 *Z(2*2) 

08420  PRINT  io~USlNG  08430 *i7l *3 > .2 (3*3) .2 <2 * 3) 

08430  rSSSS  -r.rs=3*«* . -=3s - - 

08440  PRINT  SO  USING  08450*2 ( 1 *135) *2 (3* 13S) 

08450  *5355-5. . . . - - ' - 

08460  PRINT  SO  USING  08470*2(1 *6) *Z(3*6) *Z(2*6> 

“■08*f70--T*s5r-S7s««**m - srs* - 

08480  PRINT  SC  USING  08490 «Z ( l *7) *2 (3 *7) ,2 (2*7) 

08490  *S53s  S.sS5S9»*r  SS5.SS 

08500  PRINT  SC  USING  08510*2 <1 *137) *2 (3* 137) 

08510  «55S5  S.ssSStm  -  . . . 

08520  PRINT  SC  USING  08530*2 ( 1 *8 ) *2 <3*8) *2 (2*8) 

08530  *5555  5555.  5555.55 

08540  PRINT  50  USING  08S50*Z< 1 • 16) *2 (3* 16) *2 (2* 16) 

08550  *5555  5555.  sSs.'su 

08560  PRINT  50  USING  08570 *Z ( 1 ♦ 19) *Z (3*19) *M9S 

08570"  *5555  5.  *  '5* 

08S80  PRINT  50  USING  08590*2 ( l *10) *2 (3*10) *2 (2* 10) 

“08590— *5555- - 27 - E - 

08600  IF  Z(2*10)*l  THEN  08630 

06610  PRINT  -0  USING  08620*7(1 *12) *Z (3* 12) *2 (2* 12) 

08620  *5555  3.5555*4**  sssS.iS 

08630  PRINT  SO  USING  08640*7(1*138) *2(3*138) 

08640  *5555  5* 

08650  PRINT  50  U5!NO--08600*r(nm«Zt3*im2C2»Iir 
08660  *5555  555*55  555*55 
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ossto  "PRtur  sC_usiNr  ff86ea»z{r«i39»tm.n9i - 

06680  15555  5555.555 

-06690  -pRiNT-5e"usiNOoa?6o»r{i<i-oiJ-rm.foii — ~ 
08700  15555  5.  _ 

06720  15355  5. 

08730  'PRrKT -50-tJSTNO -08740TnmwmS'.-I90r: — 
08740  <5555  5555. 

-  08750  T»R  IN  f'strus  rN<r08  76  GVZ  C  UTOSm  (  3  ♦  163) - 

08760  <5555  5555.55 


08780  <5555  555555.555 

~68790  TF~Z  m  to  r*  1~THEN-  08840 - - - 

08800  PRINT  50  USING  08810.ZU. 13). 2(3. 13). 2(2.13) 

0681  O'  75555-5555. - 5555T55 - - — 

08820  PRINT  50  USING  08830. Z (1. 104) »Z (3.104) 


08840  PRINT  50  USING  03850. Z ( 1.142) »Z (3. 142) 

.'06850"  <3=55-5  is - - - 

08860  IF  Z (2. 10) *1  THEN  08910 
'  08870  PRINT  =0  USING'  68886 iZ  1 1.147.7  (3.14T.T C2i  14 )  ” 
08880  <5555  5555.5  55.55 

~0BB9r  PRINT-  50'  UTSTTNrtreyOOVZt  ITT5TTZ  (3. IS )»Z  (2.  TS>~ 
08900  <5555  5.  5 

"08910  PRINT-50  'USING”0892r,-7(r*18r.-2 CT.-18Tf7(2TI8)-" 
08920  <5555  5555.55  5555.55 

"  08930  PRINT  '30"  USING  08940  .Z(mT)TZTI.m»Zt2.  IT) 
08940  <5555  555.55  555.5 


08960  <5555  5.  5 

" 08970  PRINT  '50 "USING-  08980TZ nvr43)TZ  13.7471 - 

08980  <5555  5. 

'  08990  PRINT' sOTJSING ' 09000  VZ  (  1 F23  >  TZ (3 i23 )'*ZT2 .23)  " 
09000  <5555  5.  5 


09020  <5555  5*  >555* 

09030-PRINT  “30  USING" 09040.ZTl  i  106) *Z (37106) - 

09040  <5555  5. 

09050  PRINT'50  USING  69060TZTIVI47)  .7(3.147) - 

09060  <5555  555. 


09040  <5555  5555.5 

09090FOR  XMV4TTQ  154' - - 

09100  PRINT  50  USING  09110. 2(1. K).Z(3.K) 

‘09110  <5555 5555.5555  - 

09120  NEXT  K 


.  1  . 


09140  <5555  5.55  5.55 

09150  TOR  K*2T'  TO  3S  '  "  . . . 

09160  PRINT  50  USING  09170»Z(l.K).Z(3*K).Z(2.K) 

09170"  I55=5'55s5i  ~  . 5555.”““ - " -  " 

09180  NEXT  K 

09190  PRINT  50  USING  09200 .2 ( 1 .20) .US (1 ) .Cl ( 1 ) 
09200  <5555  555555555:  .5555555555. 

09210  PRlNr 50-USING- 09220'.ZtnZir.t8tZ).Ctt2> - 

09220  15555  5555555555  .5:55555555. 

09230  PRINT-  50 - - - -  - -  -  ' 

09240  IF  0»3  THEN  09330 

-'092W't>t8«FSPVrT*»01 - - 

09260  CLOSE  50 t  Oil 

09270  PRINT  AA  NEW  FILE  HAS" BEEN  SAVED  FQR"YCUA" 

09280  PRINT  USING  09290.01 

09290  <TH£  NAME  OF  THE  NEK  FILE  IS  555555 

09300  PRINT  APLEASE  HENENBER  IT  FOH  FURTHER  USE. A 

•  093TO-PRINT - 

09320  RETURN 
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~0933trREM  ~XPR0ceDURE-T0  *S»VT*TMrWfcTI 'ANCT  OUT  F-ttES.» - - 

09340  Q1S«*SAVE,**05 

-09350-aosr-sixrinr - - : — - 

09360  CLOSE  52 

09370"  PRINT  rr^E  WEr  Flee -MS' EEEW'  SAVEimTS  HARE  IS  ’  P1CSIIU* - - 

09300  PRINT  A THE  ORIGINAL  PILE  STILL  EXISTS*  ITS  NAME  IS  STILL  *«ESt*»* 

-093W  PRINT - ~ 

09400  RETURN 

' -09410- T^tNT  PTPtS  TlCE-AtReAOY  EXISTS  -ON-OISKTP - - : - 

09420  GOTO  060e0 

-09430-RgN  PSUO  USEC  TO  OCMER-NAMt* - - 

09440  DATA  A,8,C,D,E,F»G*-H*I»J»K»L»M»N»0,P»0,R*S»T,U»V,ti»X»Y,Z 


09460  HAT  REAC  A  IS  N 

-  094TO~DTH_«STS1 - - - : - - : - 

09480  FOR  I«1  TO  6 

-09490-xgstT7»AtrrtNrf  ?  tPwc  r-o>  *291  «ir )  a - - - : - 

09500  NEXT  I 

— 09sto-ro«i - - - 

.  09520  0S»A2S (1)*A2S(2) *A2S (3)*A2S(4) .A2S(5) *A2$(6) 

09530  -RETURN - - - - - - 

09540  REM  ATHIS  PROCEDURE  USED  TO  INPUT  AN  EXISTING  FILE* 

-09590-INPUT  aO«f* - — - 

09560  INPUT  SC, F, FIS, HU 

'  09570  -9S«H1S - - 

09500  GOSUB  07670 

09590  INPUT -50,2 (IV24)  *2 T?«24r»7f2*-2?r - -  - 1 - - - 

09600  INPUT  5C.Z'(1,120)»F1 

-996Ttrrsn - - 

09620  GOTO  OOS20 

~0 9639  TNPUr^trj 2  H  VI2 1 T,  83 - 

09640  IF  B3«0  THEN  09670 

”  09650  B3S«*YE5*-“ - - " - 

09660  GOTO  09680 

-O967r-83WNO* - - - - - 

09680  INPUT  50,2<1»4)»2<3.4),2(2,4) 

"09690-  REH  'AUNtTS  ' ANtT CHEMICAL -PROPEHT-IES'-SETtP -  - 

09700  INPUT  sO. ZU.5). 2(3*5>t2I2.5) 

09710  INPUT  20 .2 M  * 91  i 2  (Ttl  n 2 12 * 9 1 - 

09720  INPUT  50,ZU»2).Z(3»2),Z(2»2) 

-09T30-INPUT  SCi2tr»3)  vmv3)  iffitH - 

09740  INPUT  2C.24I.I35>. 2(3.135) 

09750  INPUT  50i2(I.61»2f3.6). 2(2.6) - “• 

09760  INPUT  50,2(1*7). 2(3*7). 2(2. 7) 

09770  INPUT  S0.2(l«I3?T»2t3*l3?)  - - - 

09700  INPUT  5C. 2(1. 6), 2(3*0). 2(2.8) 
-•0979<r^NPUT-«(r,-2TTrT6TTmrI-6TT2-mt6-)-— 

09800  INPUT  5C, 2(1. 19). 2(3. 19) »“9$ 

09810  INPUT*  50.2(1. 101. 2(3, 10). 2(2. 10) ’ 

09820  IF  2(2*101*1  THEN  09840 
09830  INPUT  5C,2(1.12>»2(3. 12). 2(2M2) 

09840  INPUT  5C, 2(1.138). 2(3, 138) 

09850  INPUT  SC. Ztl.il>. 2(3. 11). 2(2. 11) 

09860  INPUT  5C.2 ( 1 ,139) *2(3*139) 

09870  INPUT  50,2(1,101) *2(3*1011 
09880  INPUT  50,2(1, 102), 2(3, 102) 

09890  INPUT  50, 2(1.140), r(3, 140)' 

09900  INPUT  5C. 2(1,103), 2(3. 103) 

-09910-iKPur  •  c  .-rmt4t)-frt  j>i4T) - 

09920  IF  2(2*101*1  THEN  099SO 
09930  INPUT  =C. 2(1. 13), 2(3,13), 2(2.13) 

09940  INPUT  50, 2(1, 104), 2(3,104) 

09950  INPUT  50 , Z (1 , 142 ) , 2(3 , 142 ) 

09960  IF  2(2,10>«1  THEN  09990 
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09970  INPOT  =C*m*14mt3*l4).Z(2mi - - - - - 

09980  INPUT  SC*Z(1.15)*Z(3»15)*Z(2*15) 

“0999T  iNPur'3o,za.i8ttTr3*Tffr«zrzna) - 

10000  INPUT  rC«2(ltl7}*2(3*17)*Z(2«17) 

tOOrO‘*TNPUT~slJT2‘(  1  *257  *m*2Sr*7(2.25T- - - 

10020  INPUT  50*70*143)  *7  (3*143) 

10030  InPUT" 50«Z ( 1  *237  *7 (3*231  »Z  (2*23) - - — — - 

10040  INPUT  50*Z( 1*105) *7(3* 105) *M5S 

"10050  TNPUT~5C«T<  1 » 1 051*2X3*1 061 - - - 

10060  INPUT  50*Z(1«147)«Z(3*147) 

~1 0070  INPUT  5CVZ ( 1  - - - - - - - - - 

10080  FOR  K«148  TO  154 

-10090- "INPUT  gU.ZU.M.ZU.K) - - — - — 

1,0100  NEXT  K 

-TOTTO_TNPUT=ir«ZTl'*26r*TT3*767*ZTrt?6) — - - - 

10120  FOR  K«27  TO  35 

"10130  INPUr5ir;T?liK)i7(37K7T7(2iKT - 

10140  NEXT  K 

Huso  iNPut'  5TrrrrT*2orr*rr*rrrn  1  ~~* 

10160  INPUT  50*Z (1 *21 ) *FS«LS (2) 

•"10110  "PRINT - 

10180  PRINT  PFIUE  IS  NOu  LOAOEO.* 

”10190  -RESTORE  ID*  . —  —  - - 

10200  GOSUB  13060 

-10?nrTRT(n - - - 


10215  IF  $ueSTR(NlS*l«8)MSUP?RESS*  THEN  4690 

-T«22Tr  IF'  Kfo*  YtsnHEN"04120 - 

10230  IF  Fl»l  THEN  10270 

.  10240  PRINT  »THE-m:r-tO8CE0r  W*S-CNeRTEO-U5ING-NKS  UNITS.* - 

10250  PRINT  *ONLY  NXS  UNITS  CAN  BE  USED  DURING  EDITING.* 

-T0260-G0-  TO  - - - — — - 

10270  PRINT  *ThE  FIU  LOADED  WAS  CREATED  USING  BRITISH  UMTS.* 
10280- PRITmONLY"5HTTtSH"UNITS^'AN_BE-US€0"'CURING-EOITTN07*~^'" 

10290  GOTO  04720 

"I0300  REN-*SET-UP  FOR-SHORT  VERSION-CONDITION AC" BRANCHING; * - 

10310  PRINT 

"T0320  PRIM  *ULU  t)H  NEl  FIUF1  " - — . . . 

10330  INPUT  VO 


'  -  -  - - I - 

10350  IF  V1>*NEW*  THEN  10380 

10360  'PRINT  VERRONEOUS'INRUT**'- '■ - 

10370  GOTO  10320 

-10380  ‘WKWtFWBW - — - - - — — — -  .  — 

10390  GOTO  10410 

"10400-  Xt**REOUESTCO* - — — - - - 

10410  IF  VSMNEV*  THEN  10430 

10420  IF  V1«*0U0*  THEN  11850  - - -  - - - - 

10430  F6al 

— mximu - - - - - 

10450  GOTO  00290 

■'l0460~TRtNT . .  . . .  -  -  ••••  -  .  .  ■  . 


10470  PRINT  <**KS  OR  BRITISH  UNITS*I 
1041(0 -  INPUT  Vf" - * . -  -  - ■ 


10490  IF  VIMHKS*  THEN  00410 
10500  IF  VIMBRITISH*  THEN  00390 
10510  GOTO  10470 

T0520 'PRINT"  rCFEHICIt.“CODE»1 - * - - - 

10330  INPUT  VI 

‘  10340 'GOSUi' 07670  -  - . . . .  ■  - - - ..... 

10550  IF  F2«l  THEN  10580 

-i05i«rTRTWT-»cpin)Neocs-tNPtmnr— - 

10570  GOTO  10520 

•10580  mt«VS . —  - -  -  -  - 

10590  PRINT 

10400  PRINT  USING  10610*0111 
10410  ICARQO  TEHP. * 

- - 
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10630  PRINT 


*10640  PRINT  FTANK'  PRfcSSlMEC  ATM4S.pl - * - 

106S0  GOTO  00600 

*10660  PRINT  *  - 

10670  PRINT  USINO  10660.02*1 
~  1066U  I  TANK  CAFKCtTT? 

10690  GOTO  00860 

10700  PRINT  -•  "  — - 

.10710  PRINT  USING  10720. 03*1 

'  10720  ITANK  "HEIGHT*.*  <====-— - - — - 

10730  GOTO  00950 

~~T0740  PR  IN  I - - - 

107S0  PRINT  FFRACTICN  FIlLEDfI 

'  I0760- INPUT' W  — - — - -  - 

10770  IF  *<1.00  AND  W»0.0  THEN  01040 
1078Q"'PRINT“¥ERRONE0US  INPUT."#**  *  — 

10790  GOTO  10750 

~to  aoTrwnrt - — 

10810  PRINT  FM0LE  DUMETERFI 
•  10820  T  HOLE  DIAMETER.  <3235523—  * 

10830  GOTO  01090 

10840  PRINT . . - 


10850  PRINT  PhOLE-CENTERfclNE  MfelOhT 

~I0860-tSOTt3~0tJhr0 - - - - - 

10870  PRINT 


(OVER  WATERLINE)# 


10880  PRINT  FP0LE-8CTT0M  MEtGMT  COVER  TANK  3CTT0M)Fr 
10890  GOTO  01350 

10900  PRINT  FOPtN  WATERS  (1?  OR  RIVfcR/CNANNEL  <2l#t * 
10910  INPUT  W.  . 

~~TO  92tr~TF~N*l-*OW~V^  2‘~T  KtW'~T)TAS  0" - — - - 

10930  PRINT  FERRONEOUS  INPUT. F 

10940  GOTO  10900  - - - - - -  - - 

10950  PRINT 

10960  PRINT  FVATEB  TEMP .FI  *  ••  . . —  - - - - 

10970  GOTO  01 550 

■-nmo-pRiKi - — - — - - - - - - 

10990  IF  2 <5. 101*1  TfEN  11160 

1 1000*  PRINT  *R(VER~VtC7**r - > '  •  —  — 

11010  GOTO  01690 

11023'  PRINT  '■  •  - - £ . . ^  _ _ 

U030  PRINT  FAv<S,  RIVER  0EPTNF1 

IT  OAD-OOTO-intTO — — - - — - - -■ 

I  *  050  PRINT 


11060  PRINT  USING  11070.0**1 

11070  IAVG,  RIVER  VELOCITY.  <S*55s552£5=: 

11080  GOTO  01910  ’  _ 

11090  POINT 


~1 1  tor  P#tK  T-»Banxs  -CODE  tttSv-OR-'S-vrr— — 
11110  INPUT  '• 


11120  If  V*|  CR  W*2  OR  W»J  THEN  lllNO 
11130  PRIM  ^ERRONEOUS  INPUT.# 

111*0  GOTO  11100 

11150  GOTO  020)0 

11160  PRINT  A* (NO  SPfcEC,  #10*91 

111  TO  GOTO  02130 

11160  PRINT 

11190  PRINT  #CCWNVlNU  ANGLE tU#N9MTNl FI 
11200  INPUT  w 

IJ210  IF  »»«0  ano  W<360  CCTO  11260 

~Ti?2tr-Rf»  —  ■  •  -  - - - - -  —  .■ 

11230  PE* 

112*0  PRINT  FERRONECUS  INPUT.# 

11250  GOTO  111  .0 
11260  GOTO  02220 
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11270  PRINT 


11290  INPUT  N 

"1T300  2C2.I0r«S - - - - - 

11310  2(1.181*2054 

11320  ir  rr«T  then  mso — ;  - - - 

11330  2(3.10)»* 

~ lt3*0-OOTC-mft> - - 

11350  2(3. 16) *(*-32 1*5/9 

1 13601*  T4-I  THEN  06400” - - 

11370  PRINT 

11380  PRINT  PATHOS. 'STABILITYfe.D  OR  F)*r 
11390  INPUT  *9 

~TTCOO"!F"  9»tf1«rir-0ir-if5iimnr-0W  VWPy~THENTr*30 
11410  PRINT  ^ERRONEOUS  INPUT.* 

"11420  GOTO  113*0 - - - ' - — 

11430  GOTO  02270 

11440  PRINT  "Fl'ATITUCEl  ’  OECPEESTIRST.*  — " 
11450  GOTO  02390 


‘  11470  GOTO  02800 

11480  PRINT'  P5PIU.-SK0RE  SEPARATION fCOWNWlNO  DIRECTION) At 
11490  IM»UT  * 

11500  2 <2.221  ** - -  - - - 

11510  IF  F4*l  THEN  06680 

■■  1T520"  Wien - - - r-— - — - - 

11530  PRINT  *CAHAGE  CODE (1.2.3  OR  41*1 

"  11540  "GOTO "031 70  - -  -  - - ' - - 

11550  PRINT  ("GEOGRAPHIC  CCGE(4  DIGITS)** 

11560  GOTO  03560  - - ~ - —  ”  " - —  ” - - - 

115T0  PRINT  ASCCONOARY  FIREStYES  OR  N0)*( 

— mw -iNppTws - — r~ - - — - 

11590  IF  tl*«YES*  THEN  11630 

*11600"TF  *S*»NO/™THEN  11650"™ - - - - - - - 

1 1610  PRINT  *ERRONECOS  INPUT-* 

11620  GOTD  11570  - - — - - - - •— 

11630  20.251*1 


11650  2(3.251*0 

11660*59*4*  — — '•  '  -  - - — - - —  - 

11670  2(1.251*3004 

11680-PRINT  —  “ —  - -- - ---• 

11690  PRINT  AFOACT10N  ShEUEhECiM 

—rtTor-iNPur  •* — - - - - 

11710  IF  ANO  4*0.0  then  1 1 740 

11720  PRINT  VtRBONfiOUS  INPUT*  “  ~ 

11710  GOTO  11699 

11740  2(2.261**  •  •  -  -  ■  -- 

1 1 750  >(1.261*5038 

tlT6?r“rT3i‘?eT«v~ - - — - — — — * — •  - — — - — 

11770  IF  F4>*1  TmEN  06400 
1 1770  PRINT  *  * 

11790  PRINT  .Change  THE  CEFAULT  Tint  SEQUENCES (YES  OH  NC)*i 
11600  INPUT  NT"4  —  ■  *  “'■ 

11*10  839**9 
1 1820  76*2 

11630  IF  *S*«N<2*  THEN  04200 

11846  tr  then  03720  — 

11850  PRINT  «NM>€  OF  Fic£*i 

11660  INPUT  09  *  •  “ 

11870  0*2 

M8«(r-tF-t!f**ttC6Nr  THfN-ljm - - - - - - 

11490  IF  UMC(i«6  THEN  1  19?u 

11900  PRINT  *E»ROH-CHCC«  FILE**  NAME  OH  TYPE  STOP.*" 

11910  GOTO  11*50 
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11920  FILE  301  #GET.**DJ 
11930  PRIM 

-ft 94-0-Pft-tfrT  -tlOHOlNQ—* fCJtr.v.* - - - 

119S0  F6*2 

"1 I960  GOTO  "09550 - - - - * - - - 

11970  REM  F8RANCH  TO  BUILC  A  VK-ACCEPTABLE  DATA  MLE.# 

11980  0*4  . . - . . . .  -  - - - 

11990  FILE  =0*)iVMM<PLT* 

12000~PRIM  5C.NH.N2S - 

12010  PRINT  50. *  * 

-12020  PRINT'50't PlOOlPIMIS -  - - -  - 

12030  PRINT  SC  USING  12040.2 !  1 .4)  .2  (3.4) 

12040  1555=  ?====**** - - ”  • 

120SO  PRINT  50  USING  12060. 2(1. 5>.Z(3.5> 

'  12060-;====  55=5575 - 

12070  PRINT  50  USING  12080. 2(1. 9). 2(3.91 

12090  PRINT  50'USING  12100.2(1.21.2(3.2) 

12100  T55r=-==5=T55 - - - 

12110  PRINT  50  USING  12120.Z <1 .3) .2 (3.3) 

-12120-t5===  '.5=5=**** - . - 

12130  PRINT  50  USING  12140.2(1. 13S) .2(3.135) 

•  12150  PRINT  ic  USING  12160.2(1*6). 20.6) 

"  12160  :====  .===3**«r . -  - -  - 

12170  PRINT  =0  USING  12180.2  (1.7) U (3.7) 

~t2m-T55=5— ;==s=*m - 

12190  PRINT  50  USING  12200.2 ( 1 .) 37) .2 (3. 137) 

12200-:====  ■;====«** - 

12210  PRINT  =0  USING  12220.2(1.81.2(3.8) 

12220  r====  ;•:==«« - - 

12230  PRINT  =0  USING  12240 .2  (1 . 16) .2 (3. 16 ) 

-12240-r=;==  ;5:==**>l* - - - - 

12250  PRINT  50  USING  12260. 2(1.19) .2(3.19) 

12260  t=s==--=; - - — - - 

12270  PRINT^  50_USINGJ22^0^ZJI»10).Z(3.10) 

12290  IF-2^2«Io)al  THEN  12320 

-123mr-pRtNT -=0  USING  '  1 23~Krr2Tl~Tl2 Vt?) - 

12310  :====  .55 =£**** 

12320  -PRINT  =C~ US1  NG~I233<T. 2 ( 1  ( 138 >  rt  1 3 . 138 ) - - - 

12330  *=555  5. 

12340  PRINT'50  "USING  ”12350 *"2  ( l » 1 1 )  .2(3.11  >  - .  . 

12350  (555=  5=5.55  _ 

12370  :====  ;==.===; 

’  12380  PRINT-  50  USING  12390r2<l»I01) .2(3.101) -  - 

12390  !====  5. 

12400  PRINT  50  USING  12410.2 <1  *  102) .2 (3. 1027 . - . 

12410  :=;==  =. 

-r2430-pRtKT-=  C-LfSTWj-r 2 430 »-2i- rrr<r07-f  2  (-3  n<rO-) - 

12430  :====  5=55. 

12440  PRINT  =C  USING  12450. 2(1.103) .2(3*103) 

12450  1=555  5555. 55 

12460  PRINT  =C  USING  12470.2 (1 .141 ) .2 (3. 141 ) 

12470  1=5=5  .5355**** 

12460  IF  Z(2.10)»l  ThEN  '.2530 

12490  PRINT  =0  USING  12500.2 ( l . 13) .2 (3. 13) 

12500  15=35  ====. 

12510  PRINT  50  USING  12520 .2 ( 1 . 104 ) .2 (3. 104 ) 

12520  15555  .5=5=5*91'  . 

12530  PRINT  SC  USING  12540.2(1.142) .2(3.142) 

12550  IF"JM2«10)»1  Th£N  12600 

12560  PRINT  =0  USING  12570.2(1.14) .2(3.14) 

12570  15=55  5555.5 

12580  PRINT  SC  USING  12590.211.151.2(3.15) 

.12590  1=555  5  • 

12600  PRINT  SC  U5IN'G*T26I0.2 0.18). 2 (3 .18) . . . . 

12610  15=55  5555.55 
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12620  PRINT' =0  USING  12630.2(1.17) ,Z(3ol7)  . 

1  12630  15555  555.55 

12640  IF  K5S«*YESA  ANC  GSOASFeLANM  THEN  12660  “ 

12650  GS«*SF8LANK* 

—17560  PRINT  50  U5TNG"I2670 .2 < 1 »2S) .2 < 3.25) - 

12670  (5555  5. 

12680  "PRINriC “U?rNG“I2600i2 (TiT43  Ji7(3.I43) - - 

12690  (=555  5. 

~I276<rPfflFr-iirU5ING'  1271 0.ZH  i23r.rt2-.231 - 

12710  »====  i. 

-i27zr"P  frnrr-=n  -crsiNtr  r2  zaoTrmro'S'nm.Ttrej - 

12730  !=:::  =. 

“T2T40"I F  77  27H3T»4  T FEN"I2 770 - - - 

_  12750_PPINT  J^O  USING  12760. Z ( 1 « 106)  .Z  (3. 106) 

12770  PRINT  SC  USING  12780. Z t 1.147) .2 (3. 147) 

-17780  "UTSS'? "555  » - 

12790  PRINT  SC  USING  12800. 2(1. 146) «Z<3. 146) 

~12800~-ISS55  T . . . . 

12810  IF  2(3«1S5>*999  THEN  12840 

" 12820'PRINT  ‘5C  USING  12830i2 (1 .155) iZ (3. 1SS) - 

12830  (5=55  SSSS.S 

"imo" fop'  k«-14h  nr m - 

•  12850  PRINT  SC  USING  12860.2(1. K).Z<3.K) 

12860  rSSSS  SSSS.SSS"  - - - - - — 

12870  NEXT  K 

12887  PRINT  •5C  USING-T7890i2T1.76)  iZt3-t26)-  ~~ . 

12890  15555  5.55 

•~12900  7  UR '**27' TCT3S - 

12910  PRINT  50  US  I NGJ2920  ♦  Z<1.K) . Z  (3.K)  _ 

12930  NEXT*K . 

12940  PRINr-57-USINn2950-.Zfr.ro)  «ctm - 

12950  15555  555555555 

~T2967  'PRINT' ‘SC ‘USING  T29T0  i7TTT7I  >VLTt7> — - - 

12970  (5555  555555555 

17980-p«rNT"r7 - - -  " - — - 

12990  CLOSE  SC 

13000  FILE  2t5T-*QCT.MFr -  - - - 

13010  CLOSE  515 

WC27^P-'1Jt**SPWr*NfC*"7tfE7r13<W0 - 

13030  FILE  5l6t  AGET»A»Gt 

-13040  -CLOSE  '516 - 4 - - - - - - - - - 

13050  PRINT 

13060  PRINT  "RTPANK' YOU  FOR  USlNO  THE  UlNir  "  - 

13070  STOP 

-»08U  TF  Z  \ 2 . 24T«>3CTr~THEK~  12120 - 

13090  F«a*G£0NV6* 

13100  GS«FSECNY4R "  ~  '  — -  “  -  - -  • 

13110  GOTO  13320 

'13120-IF  7(2124)03612  THEN  13160  . 

13130  F1-8GE0NY6# 

13140  0S*XSF8L4NK« 

13*50  GOTO  13320 

13160  <f  rr?i74r<>161l  THEN  13200  -  -■  “*  * 

13170  F|k*GECL*  1  * 

13180  G*«<SF8l»NK*  '  '  '  . . - 

13190  QOTO  13320 

*1370iT*TF'7T2724T»ri6l2  THEN  T3240 - - - 

13210  FS«*GE0L*?F 

13220  G*»*SF8L'iNK*  "  *  . . 

13230  GOTO  13320 

13240  IF  Z<2,24)o  3211  THEN  13280 
13250  FIOGE0NCI* 

“-t32W0t»rsttF«fr» - - - - - 

132T0  GOTO  133?^ 

13280  PRINT  FThlS  GEOGRAPHIC  FILE  DOES  NCrEXtST.A 
13290  PRINT  APPEASE  nE-EnTER  Tc|S  VALUE .  OR  TYPE* 
13300  PRINT  < THE  kORL  STOP  TO  END  THE  PMOGNAh.a 
13310  Ga»I 

T3320“Rt  TURN' - - - * - - - — "  - 


FIGURE  B-2  (concluded) 


| 


00010  BASE  1 

“00020  OIM  773*200) - - -  — - - - 

00030  DIM  03(27*18) 

-o  OOWO"GOSU8  11020 - - - - 

00050  F*«0 

“00060  F5»0 - - : - - 

00070  MSSMNOF 

00080  2  (l'*25t»3004  - - - -  - - - 

00090  F8«0 

-eoioo-FUTwr  tfpce«8E  entcr-tcur  last  Mne-«mrTHe- mie  of  ^ - 

00110  PRINT  ATMS  SPILL  SIMULATION  tK  THAT  ORDER-"* 

“  00120'  PRINT'"  * - - 

00130  PRINT  *EX AMPLE—  SHITH/LNG  SPILL'  NEW  YORK* 

"00140  "  INPUT  Nll'“  — - - - - - - - - 

00150  PRINT 

. 00160'  PRIM - 

00170  N2$tOATS 

'  00180  PRINT  FWELCOME  TO  THE  UIM.F  “  - -  *  - —  '  . 

00190  PRINT  FTHIS  PROCRAP  IS  USED  TO  ACCESS  THE  VULNERABILITY  MODEL.* 

'00200  PRINT  . . . -  - - - - - -  - - 

00216  KS«*YES* 

•“  0022O“PRI7n“-rrHr-VM“rAN'-SlKOL-*Tr“CHeMttAtr-$PttXS-1*ND  THElR“PO$Slt)tE*-“ 
00230  PRINT  *CONSEQU£KCES  AT  THE  FOLLOWING  PCRTSi* 

302*0  PRINT . .  . . . . .  .  -  - 

00250  PRINT  *  LOS  ANGELES* 

00260  PRINT  *  “ NEW  ORLEANS* . . . — . 

00270  PRINT  *  NEW  YORK* 

-00280“  PRINT - 1 - 

00290  PRINT  *IF  YOU  ARE  INTERESTED  IN  SPILLS  AT  OTHER  LOCATIONS** 
00300  PRINT  *ASK  THE  VP  'PROJECT '  OFFICER  FOR  ASSISTANCE **■ —  ■  -  - 

00310  PRINT 


00320  PRINT  FTC  RUN  A  SPILL  SIMULATION  YOU  MUST  EITHER  PREPARE  A  NEW* 

00330  PRINT  FlNPUT  FILE  (CATA  LIST)  OR  USE  A  PREVIOUSLY  PRLPAHEO  INPUT  FILE.* 

~ 003*'0"PRrtN'r“*ENTER_TH€— WORC”OCC1F— YCtPWISH'  TO~OSE'-ANC“ECT  T  ~AN  'OLD* - -  - 

00350  PRINT  # INPUT  FILE.' OTHERWISE*  ENTER  THE  WORO  NEW  AFTER  THE* 

00360  PRINT  FOUESTION  MARK  AND  DEPRESS  THE'  CARRIAGE  RETURN  KET. A  ' 

00370  INPUT  VI 

00380  IF  VI»*0LC*  THEN  ”00*10 . . . . . 

00390  XS-FPREPIREC* 

‘DOAOO  GOTO- 00*70 - - - - - 

00*10  XSa*REOUESTEO» 

00*20  IF  VS  »  FOLD*  OR  VfwFNEWF  THEN  00*60  . . 

00*30  PRINT  FlNPUT  MUST  BE  EITHER  NEW  ON  OLD* 

00**0  PRINT  FPLEASE  REENTER*  . 

00*50  GOTO  00370 

00*G0*'IF' V1WFOLGF'  TPEN'TTBSO - - - - - -  " .  "  -  •  ■ 

00*70  GOSUB  177*0 » 

00*80  PRINT 
00*90  B3«0 


00500  PRINT  FTO  PREPARE  YCU»  INPUT  FILE*  ENTER  THE  APPROPRIATE  INF0M-* 
00S10  PRINT  FHATION  FQH  EACH  SET  OF  OUESTIONS  OR  DATA  RECUtST  BELOW.* 
00520  PRIwr  FFnfr^ACr-Sbt-Or  OCESnONS  YOU-  WiLL~we  GIVEN-  TWO  UPT  lONSt*-  • 
00530  PRINT 


005*0 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

30620 

00630 

006*0 

00650 

00660 


PRINT 

PRINT 

PRINT 

PRINT 

PRtNT 

PRIM 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


F  OPTION  It  IF  YOU  NEEO  INSTRUCTIONS  OR  ADDITIONAL  INFOR-* 

F  RATION  TO  HELP  YUU  PREPARE  THE  INPUTS*  ENTER  THE  wORDF 

F  INFO* 

F  -'OPTION  2T-IF  YOU'  DO  NOT'  NEED-INSTRUCTIONS  AND  'YOU  -Ant*-  - 
F  PREPAREC  TO  PROVIDE  THE  OATA  REOUESTEC*  ENTER  THE  wOROF 

F  INPUTF 

FIF  YOU  WISH  TO  CHYVOE  ANY  OF  THE  VALUES  AFTF-M  YOU  HAVE* 
fENTERCC  THE**  WAIT  UNTIL  YOU  HAVE  COMPLETEC  THE  tNTIHEF 
FlNPUT  FILE*  YOU  wtLL  THEN  PE  01  vuh*  THE  OPPORTUNITY  TOF 
FECIT  AND  CORRECT  YOUR  INPUT  FlLt.F 
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00670  PRINT  nee  SURE  TO  ENTEh  THE  DATA  IN  THE  PROPER  FORMAT  AND  IN  I  HE# 

00680  PRINT  APRCPEfl  UMTS.. WORD  ENTRIES  NEED  NOT  BE  ENCLOSED  IN  QUOTES** 

00690  PRINT  ANUMBERS  MUST  BE  EN*Ef(EO  IN  DECIMAL  FORMAT*  SCIENTIFIC* 

‘"00700  "PRlNT~*OR~E'JtPONENT'IAt  NOTATION-  IS'  NOf-'-ALtOwEDr* - - - 

00710  PRINT 

00720  PRINT  *YCU  CAN  ENTER  'QUANTITATIVE  DATA  I N~  EITHER  MKS  (NfcTER-MLOCRAM-SECONO) 
00730  PRINT  *0R  BRITISH  UNITS.  BUT  YOU  CANNOT  USE  BOTH  IN  ONE  INPUT  FILE.* 

00740  PRINT  AteHICH  00  YOU  PREFER**  “  .  . . . - :  .. 

00750  PRINT  AANSwER  EITHER  MKS  OR  BRITISH.* 

'  "077760  INPUT  'US - - 

00770  IF’wS  «*MKS*  OH  WS»*BRITISH*  THEN  00810 

00780  PRINT  *Y0UR  ANSWER  MUST  BE  EITHER'HKSCR  BRITISH.* . . . 

00790  PRINT  *PLEASE  RETYPE  YOUR  ANSWER* 

00800  GOTO  00740  ‘  - -  -  - - - 

00810  IF  W1**HKS*  THEN  00840 
-OOBEO-fl-M - 


00830  60  TO  008S0 

00340  FI  *2  . r .  .  . . 

00850  Z(l«l20)*20 

00860  2(2. 120)»F1  —  '  - .  •  -  ' . . 

00670  PRINT 

- - - - 

*Th£  FIRST  THREE  INPUTS  REQUIRED  DESCRIBE  THE  CHARACTERISTICS* 
00900  PRINT  *OF  THE  CHEMICAL  CARGO  PRIOR  TO  THE  SPILL.  THESE  A^E  THE* 

00910  PRINT  AChEMICAL  NAME.  THE  TEMPERATURE  AND  THE  PRESSURE  UF  THE* 

00920  PRINT  ~*CARGO  WITHIN  THE  TANK  IN  ATMOSPHERES.  FOR  THE  NAME  OF*  . 

00930  PRINT  ATHE  CHEMICAL  ,  YOL  WILL  NEED  TO  SPECIFY  THE  ThREE  LETTEH* 

TTOVAO^RINT  *CPFHrCAL~CODET“F - - - - - - 

90950  PRINT 

0OR60  PRINT  AREOUEST  INFO  IF  YOU  00  NOT  KNOW  THE  CODE  OR  NEED  INFOR-** 

009T0  PRINT  AMATION  ON  CARGO  TEMPERATURES  ANC  PRESSURES.  ENTER  EITHER* 

00980  PRINT  A  INFO  OR  INPUT.*  . —  -  -  - 

00990  INPUT  WS 


’■oni(r(rTr--wTfc*iNFo*"Tm*Trr**tNPUT*-THEN-orowj — - 

01010  PRINT  AYOUR  ANSWER  MUST  8E  EITHER  INFO  OR  INPUT* 

01020  PRINT  APLEASE  RETYPE  YOUR  ANSWER*  . —  . . —  - . 

01030  OOTO  00990 

01040  IF  WWINPUT*  THEN  01060  "  -  - — 

01050  00SU9  13960 

~OTT)'6(r  TFT  I*  l  "THEN- (TIT2  0 - — - - - - - 

01070  01S«*C6LSIUS.* 

01060  02SMCU8IC  METERS.* . - . -  - - 

01090  03SMMETERS.A 

01100- 041«*METERS  PER  SECOND.* . . . — . 

OHIO  GOTO  01140 

"0 1 1"2  O'OT  S  ■WFTHifEfjRTtT" - - 

01130  024* * THOUSANDS  OF  GALLONS.* 

01140  03t«*FEET.A 

01150  04$**F£ET  PER  SECONC.A 

01160  IF  F5*l  THEN  18090 

01170  PRINT  (ENTER  THE  THREE  LETTER  CODE  OF  THE  CHEMICAL  INVOLVED* 

0 1 780  PRINT-  *  IN-  THE  SR  ILL* . . - -  _ .!  . 

01190  INPUT  Vi 

01200  GOSUft  t 1530 

01210  IF  F2*l  THEN  01300 

01220  PRINT  *  INPUT  MUST  BE  A  VALIO  CHEMICAL  COUt* 

01230  PRINT  *  IF  YOU  nEEC  INFUMMATIUN  PLEASE  TYPfc  INFO  OTHERWISE* 
01240"PRTNT  APltASe  HC-ENTCP'TME  APPROPRIATE* CHE M tCAL‘'COCf. *'  — 

01250  IM»UT  WS 

01260  IF  VJMlNFO*  THEN  01260 
01270  GOTO  01200 
01280  GOSU8  13960 
01290  GOTO  01170 
01300  «lt*w4 

01310  PRINT  (ENTER  Th|  TEMPERATURE  OF  THE  CARGO  PRIOR  TO  ThE  SPILL* 
01320  PRINT  USING  0U3U.0IS 
01330  UN  DEGREES  <seeS5S=s=” 
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01340  INPUT  V  .  . - . .  . . 

013S0  2(2*2)** 

“0  tseo-rm?)  *2004 — - - - — — - 

0>13?0  IF  Fi*2  THEN  01400 

01380  2(3.21*  (*-"32)*(5/9) - >* - - : - 

01390  GOTO  01410 

01400  2(3*2)**  - - - -  "  - -  -  - -  "  . 

01410  2(1.IO:>*2036 

-0KCT"tr'tfy«!2tt0"0ff"1i>3O0  -THEN  -01480 - r - - 

01430  2(3*1031*2(3*2) 

0144Q  IF  F4*1THEN  09740  - -  - • - - - - - — 

01450  GOTO  01490 

01460  PRINT  *THl5  TEMPERATURE  IS  BbYOND  THE  "RANGE' OF  THE' VH.* - - - 

01470  PRINT  APLEASE  ENTER  ANOTHER  VALUE  OH  TYPE  STOP— A 

"01480  'GOTO  01310 - - - 

01490  PRINT  RENTER  Th£  TANK  PRESSURE  PRIOR  TC  THE  RUPTURE  IN  ATMOSPHERES* 

01500  INPUT ‘ V  . — . —  * . . . - — *• - - . . 

01510  2(2*3)** 

01520  2(1*31  *2005' -  — - -  - “ — . . . •  -  " 

01530  2(3*31***1000000 

— 0 15«0-If“F4-»rTHEN-09T40 - - - 

01550  PRINT 

.01560  PRINT - -  -  - 7 . . . . .  .  . . 

01S7.0  PRINT  AThE  NEXT  THREE  INPUTS  REQUESTED  ARE  THE  CAPACITY.  HEIGHT*  AND* 

01580  PRINT  AFfiACTION' FILLED  OR  THE  RUPTURED  TANMSV.A . 

01590  PRINT  AENTER  EITHER  INFO  OH  INPUT* 

~otso  o~rwnrr  vs - - - : - 

01610  IF  *S»AtNFO*  OH  *$«*INPUT*  THEN  01650 

01620  “PRINT  AYOUR  ANSVER  RUST  BE  EITHER  INPUT  OR  INFO*  - - - 

01630  PRINT  APLEASE  RETYPE  YOUR  ANSWER* 

01640  GOTO  01600  '  .  “  - - - - 

01650  IF  WS**lNPUTA  THEN  01670 

"01S60~GOSUB . 1020 - - - 

01670  PRINT  USING  01680*02$ 

01680  IENTER  the  CAPACITY  or  the  tank  IN  -UNITS-OF  «s5Sss5s±s=s355ssEc5ssS5 - 
01690  INPUT  * 

01700  2(2F47*W  —  -  - -  - - - - - - 

01710  2<I*4)*200I 

-omtr-tr  rw-T*CN"OTTso - 

01730  ? (3»4)*W*378S0Q0 

01740  GOTO  01760  -  -  •“  - - - 

017S0  2(3.4)»W*1000000 

01760  IF  F4«l  THEN  01950  . .  . . . 

01770  PRINT  USING  01780*031 

-01780-  TENTER  TH£~HEIOHT”CF"Tm£'"TANK— IN' ’<s35'sS5S - - - - 

01790  INPUT  V 

01800  2(2»S)«M .  “  . -  '  . 

01810  2(1*51*2002 
01820  IF  Fl«2  THEN  01850 
01830  2(3.5)***30.48 

01840  GOTtroieoo - - : - - - — 

01650  Z(3.5>*w<*10U 
01860  IF  F4*l  THEN  09740 

01870  PRINT  *ENT€R  THE  FRACTION  OF  THE  TANK  FlLLEO.* 

0 1680  INPUT  a 

01890  IF  *<*1.00  THEN  01930 

0)900  PRINT  AYOUR'ANSVER  HUST'tiE-  LESS  THEN  WOOSP- . - . — . - 

01910  PRINT  APLEASE  hETYPE  YOUR  ANSWER.* 

01920  GOTO  01880 
01430  2(2*6)** 

01940  2(1*61*200? 

01950  2 (3*61 *2 (3. 136 >*2(3. 41*2 (2.6) 

01960  IF  F4*l  THEN  09T40 
01970  PRINT 

01980  PRINT  AThREE  INPUTS  ARt  REQU1HEC  TO  DESCRIBE  THE  SI It  AND  LOCATION* 
01990  PRINT  *0F  ThE  NURTURE.  THESE  ARE  THt  DUKETlM  OF  THt  HOLE.  THE* 

02000  PRINT  *HEIOHT  OF  THE  HOLl*S  CENTEHLlNE  ABOVt  THE  WATLHLINE* 

02010  PRINT  **NC  THE  HEIGHT  UF  THE  BOTTOM  OF  THE  HOLE  ABCVt  ThE* 

02020  PRINT  *BC?TOP  UF  THE  TANK.  ENTER  EITHER  INFO  OR  INPUT.* 

02030  INPUT  *» 
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02040  IF  w$«AlNPUTA  OP  wS»AINFCA  then  02080  "  - -  - - 

02050  PRINT  AVOUR  ANSWER  RUST  BE  EITHER  INFO  OR  INPUT* 

'  02060  PRINT  APE EASE  RETYPE'  YOUR  'AN5WERA  .  . . . " 

02070  GOTO  02030 

02080  IF  TREK-OTTOO - ! - ! - - " — 

02090  GOSUS  12440 

02100  PRINT  USING  02110*038 . . . . — .  . .  . . * 

02 H 1 0  J ENTER  Tt-E  DIAMETER  OF  THE  HOUE  IN  <==:s=Si 

02120'  INPUT  W . . .  . .  . .  . . 

02130  IF'W>0  THEN  02160 

“  02 140” PRINT  "A ERRORS £~H0t'E~STZfc'  RUST—BE—A“P0STTtVEV  'N0N“2£RW'WlHBERi'A - 

02150  GOTO  02100 

02160  Z(2*7)*W . - - "  - - - - - -  - 

02170  Z(l*7)*200M 

"02180  "IF  Fl«r  THEN'  02210 - - - - -  - - 

02190  Z(3*7)«W»100 

~O22OO~GOnj-(J2220 - 

02210  Z(3,7)«W*30.48 

02220  Z (1*102) «2029  -  - -  -  r'" . . 

02230  IF  Z(3*7)»100  THEN  02260 

•02240  Z(3V102r«l' - - 

02250  GOTO  02270 

02260'“Z f 3 *"T0?)  AO - - 

02270  IF  F4«l  THEN  09740 

02280  PRINT  RENTER  THE  HEIGHT' CF‘ THE  HOLE+S  CENTERL  INE  * ABOVE'  THE A' . 

02290  PRINT  USING  02300*03$ 

02300  tWATERLINE  IN  <=======  . .  '  . . . . '" . 

02310  INPUT  W 

"0232(rrr2rrr«9 - 

02330  Z(l*8)>2015 

02340  IF  El*l  THEN  02370  . . . . . ~ . .  . . 

02350  Z(3*8)»N*100 

02360  GOTO  02380 . . .  ~  — . — •  - - - 

02370  Z(3.8)»**30.48 

•“02380~TF*FV*r  THT:n~09790- - 

02390  PRINT  AENTER  THE  HEIGHT  OF  THE  BOTTOM  CF  THE  HOLE  ABOVE  TMEA 

02400  PRINT  USING"  02410*03$ - - - - - 

02410  I BOTTOM  OF  THE  TANK  IN  <;====== 

02420  INPUT  W - - - - - -  ~  *'* 

02430  Z(2,9)«W 

-o?«4(r~r  tr.  m*TT(rrrr - — 

02450  IF  Fl«2  THEN  02460 

02460"Z(3*9)«W*30.48 -  ’  1  - .  . .  '  . . . 

02470  GOTO  02490 

02480  Z(3.9)»W*I00  . . . 

02490  PRINT 

"  92500  ir-nrAr-THEN'  097*0 - - - 

02510  PRINT 
02580  PRINT 
02530  PRINT 

02540  PRINT  A  THE  NEAT  SERIES  OF  INPUTS  ARE  NEEDED  BY  THt  VM  TO  COMPUTER 
02550  PRINT  ATHE  SPREADING*  MIXING*  ANO  EVAPORATION  OF  THE  SPILLED  CAHOO.A 
‘  02569  "PRTNT"  AF7RST—I5"NCECCD~TFC'TYPE '0F“VTATCR"'UP0N  WHICH  THE"5PICLA  " 
02570  PRINT  AOCCURS  ANC  THE  WATER  TEMPERATURE*  IF  IN  A  CHANNEL  ORA 
02580  PRINT  ARIVER*  INPUTS  ARE  THEN  REOUIREO  FOR  CHANNEL  WIDTH,  t)A ’TH.A 
02590  PRINT  AVFLOCITV,  ANC  ROUGHNESS  CF  THE  BANKS.  IF  YOL  hEOUEST 
02600  PRINT  AtNFO,  MATERIAL  WILL  BE  SUPPHEO  ON  REPRESENTATIVE  VAlibSA 
02610  PRINT  AC F  THESE  VARIABLES  FOR  RELEVANT  U.S.  PORTS. A 
0262U  PRINT  RENTER  EITHER  INFO  OR  INPUTA 
02630  INPUT  W1 

02640  IF  MIwAInFOA  OR  WJwRlNPUTA  THEN  02690 
02650  PRINT  AVOUR  ANSWER  MUST  BE  EITHER  INFO  OR  INPUTA 
02660  PRINT  APLEASE  RETYPE  YOUR  ANSWERA 
02670  GOTO  02630 
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_02680--IF'K$<>*Y€S*-  THEN  DT900 - - — V - - -  — - - 

02690  IF  W**AINPUTA  THEN  02710 

02700  "GOSUfl  14580 . . . -  - - - - — .  ■- 

02710  PRINT  ACOES  THf  SPILL  OCCUR  In  relatively  open  waters (at  sea  ora 
02720  PRINT  AIN  THE  PORT)  OR  OCES  IT  OCCUR  IN  A‘ CHANNEL  CR  RIVER* A ~ 
02720  PRINT  ACNTER  1  FOR  OPEN  WATERS  ANO  2  FCR  CHANNEL  OR  KIVtR.A 

-02740  -INPUT'-T) - - - “ - 

02750  IF  W*1  OR  W«2  THEN  02790 

02760  PRINT  AYOUR  ANSWER  CAN  ONLY  BE  TOR  2A  “  ~ 

02770  PRINT  aPlEASE  RETYPE  YOUR  ANSWERA 

02780  GOTO  02740  -  - 

02790  Z (2* 10)*w 

-02800  Z  Cl  .lOf  1*2028 - 

02810  Z (3* 101 1 *W 

•  -02820  Z(Iil0)*201B  - 

02830  IF  w*l  THEN  02860 

02840  70*10)  *1  -  -  '  '  -  - . . .  . . - . 

02850  GOTO  02870 

~02B60--ZT3vror*2 - 

02870  IF  F4»i  THEN  09920 

02880  PRINT  USING  02890*011 - -  - .  ”  . . 

02890  TENTER  THE  WATER  TEMPERATURE  IN  DEGREES  <=i5==i=5=5s5= 

02900  INPUT  W .  . . ’ . . . *  . . 

02910  2(2.11)** 

-02920-TU  rtti-*2tT23 - - 

02930  IF  Fl«l  THEN  02990 

02940  IF  W>-5  »ND‘W<50  THEN  02970  . . —  -  '  . . 

02950  PRINT  AERROR—  TEMPERATURE  IS  OUT  OF  RANGE. A 

02960  GOTO  02880  ~  ’  . .  " .  .  " 

02970  Z(3*ll)*w 

—02990  "GOTO-OtrOEO - 

02990  Z(3.1l)*(W-32)*<5/9) 

03000  W»Z (3*  11)  -  - .  -  . * . .  .  . . . 

03010  GOTO  02940 

03020  IF  F4>0  THEN  09740  . . .  . . . 

03030  IF  Z (2* 101*1  THEN  03550 

-  C304G  -PRINT  USTmrO  305070  3J - 

03050  (ENTER  THE  wlCTH  OF  THE  CHANNEL  OR  RIVER  IN  <3ss5ss5 

03060  INPUT  W  '  -  '  .  ""  '"  . .  . . 

03070  Z(2*12)«N 

03080  2(1*121*2020  '  '  '  * 

03090  IF  Fl*l  THEN  03120 

-03TQO  ‘2(3*  12)  *9*300 - - 

03110  GOTO  03130 

03120  Z(3*12>»**30*49  .... 

03130  7(1*104) >2045 
03140  20*1041*2(3*12) 

03150  IF  F4«2  THEN  09740 

03160  PRINT  -USING  03170*031 - - -  "  "  . . .  .  " 

03170  (ENTER  ThE  AVERAGE  CEPTH  OF  THE  RIVER  IN  <::s5:£s 

03180  INPUT  w 

03190  2(2*131*4 

03200  2(1*131*2044 

03210  IF  Fl«l  THEN  03240 

o32?o  m*i3r*N*i«0 . -  -  -•  —  "  — " 

03230  GOTO  03250 
03240  Z(3*13)*'»*30*4tt 
03250  IF  F4»2  THEN  09740 

03260  PRINT  AENTER  THE  AVERAGE  VELOCITY  OF  THE  RIVERA 
03270  PRINT  USING  03280.04* 

03280  (FLO*  IN  <=SSi==5=====SS5===S 

03290  INPUT  H 

03300  2(2»l4)*w 

03310  2(1*141*2047 

03320  IF  Fl*l  THEN  033S0 

03330  2(3*141*. *100 

03340  OOTO  033A0  - 
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03350  Z(3.14)*w«30.4S 

03360  IF  F4»2  THEN  09740  '  .  .  *. - r 

03370  PRINT  AOOES  THE  RIVER  HAVE  CLEAN  STRAIGHT  BANKS ( 1 )  A 

03380  PRINT  AROCERATELY  ROUGH.  STONEY  BANKS (2) A  . 

03390  PRINT  ACR  VERY  SLUGGISH  ANO  «EE0Y  BANKS (3) A 

C34(rC^RtNT-*eNTER~Tr"?f'CR-3A - — - - - - 

03410  INPUT  W 

03420  IT  V»«I  0»‘W*2  OR  W«3"THEN"  03460“ . - . .  * . . . 

03430  PRINT  AYOUR  ANSWER  RUST  1*  8*  OR  3A 

03440  PPJNT  APLEASE  RETYPE  YOUR  ANSWERA  . . .  . . 

03450  GOTO  03410 

~03460-rC2?15T*R - 

03470  Z(l«15)«2052 

03480  IF  ti»2  OR  W*3  THEN  03510  . . . .  .  *~ 

03490  7<3.15>«.03 

03500  GOTO  03550'  '  '  - - - -  - - - - 

03510  IF  W«3  THEN  03S40 

03520“  2  C3 .151  *.T5" - - - 

03530  GOTO  03550 

03S40  Z(3»15)*.10  *  - -  -  — . — . 

03550  PRINT 

‘03560  IF  F4«2  OR  F4«l" THEN  09740  .  '  . . . 

03570  PRINT 

TJ3580"'PRTNT - - ~~ - 

03590  PRINT  ATHE  NEAT  FOUR  INPUTS  ARE  NEEDED  TO  DETERMINE  THEA 
03600  PRINT  AVAPOfi  CLOUD "CISPERS ION  •“THESE  ARE  THE  VINO  SPEED* A' ' 
03610  PRINT  AWINO  DIRECTION.  AIR  TEMPERATURE.  AND  ATMOSPHEhICA 

03620  PRINT  ASTABILITY.A  . . . 

03630  PRINT  AESTER  EITHER  INFO  OR  INPUTA 

“03640“TNPU7“Wr - - - 

03650  IF  MSMInFOA  OR  AS»A INPUTA  THEN  03690 

03660  PRINT  AYOUR  ANSWER  RUST  BE  EITHER  INFO  OR  INPUT. A -  - 

03670  PRINT  APlEASE  RETYPE  YOUR  ANSWER. A 

03680"GOTO  03640  •“  * - - - ~ - - 

03690  IF  Wf»A INPUTA  THEN  03710 

~0370(TG0StIB“13T8T) - 

03710  PRINT  USING  03720.04* 

03720  lENTER  THE  AVERAGE  WIND  SPEED “IN  <*ssSssss35sssssssS'  "  ' 
03730  INPUT  W 

03740  Z(2.16)«w . . . .  ‘  . . 

03750  Z ( 1 « 16) *2016 

•xn76d-Trri*TTF£frv7T90 - 

03770  Z (3. 16) *w*100 

03780  GOTO  03800  ~  "  "  . .  *’  . ' . 

03790  Z <3. 16) * 30 .46 

03800  IF  F4«l  THEN  10020  ~  ' 

03810  PRINT  »ENT£H  THE  ANGLE  BETWEEN  THE  OOWNWtND  DIRECTION  ANDA 
03820  PRINT  ANCRTKr-Mr»SURE0  -IN~T5E0ReES’  CLOCKWISE 'FROR  NORTH »P”“ 
03«30  INPUT  W 

03840  IF  w»«0  AND  W«360  THEN  03880 

03850  PRINT  »YCUR  ANSWER  RUST  BE  LESS  THAN  360  DEGREES.A 
03860  PRINT  APlEASE  RETYPE  YOUR  ANSWER .A 
03870  GOTO  03830 

■03800-2(2.17)  -  - - - — ” 

03890  Ztl.l?l»?058 
03900  Z(3«17)». 

03910  IF  F4»l  THEN  0V740 
03930  PRINT  USTN^  03930.01* 

03930  lENTER  ThE  AIR  TEMPERATURE  IN  CEGRIES  <222E2==525225=2s 
03940  INPUT  V 
03950  Zt2.l8)«. 

03980  Ztl.l8>»2054 

03970  IF  Fl«l  THEN  04030 

03960  IF  W«50  AND  w»-4l  THEN  04010 

03990  PRINT  AERROfi—  TEMPERATURE  IS  OUT  OF  RANGE. A 

0400 Cr  GOTO  039?0 .  . . . . 
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04010  Z<3*18)»A 

04020  GOTO  04060 . . .  .  . . . . 

04030  Z<3»18>«<W-32>*<5/9l 

04040  W»Z<3»18>  .  . . . 

040S0  GOTO  03980 

~04060~rf~r4-*rTf'PT'09740- - - 

04070  PRINT  CENTER  THE  ONE-LETTER  COCE  FOR  THE  PASOUILL-GIFFOKOA 

04080  PRINT  AATMOSPHER  INSTABILITY  CLASS*  B  *  UNSTABLE* A . . . 

04090  PRINT  AD*N£UTRAL*  ANO  F«HIGHLY  STABLE* A 

04100  PRINT  AENTER  6.0.  OR  F. A  .  . . .  — . 

04110  INPUT  Wi 

~ (T4TZ0  TF  BTyAB~iB~'OR  AS*^A  OR'Wr*¥T*-THEN~<mTO- — - 

04130  PRINT  AYCUR  ANSWER  RUST  6E  EITHER  8*  0*  OR  F *A 

04140  PRINT  APlEASE  RETYPE  YOUR  ANSWERA . . .  '  "  ■  *  . 

04150  GOTO  04110 

04160  r(l*19>*2017  .  . . . . . . .  . . 

04170  M9$*W9 

~04i80-rr-tfr*xtfr-aR~wy*Acr-TPEw-04?iv - 

04190  Z(3«19>*6 

04200  GOTO  04250  . . . —  — . 

04210  IF  AS*A6A  THEN  04240 

•04220  Z(3*19)»4 . . . 

04230  GOTO  04250 

-  042«o-zrr*-maE - — - 

04250  PRINT 

04260  IF  F4»l  THEN  09740  -  '  "  . . . . . . - . 

04270  PRINT 

O42B0  PRINT  ATHE  NEXT  THREE  INPUTS  DESCRIBE  THE  POSITION  OK  THE  SPlLLtA 
04290  PRINT  AI.E.*  LATITUCE*  LONGITUDE*  AND  A INDWAHO  DISTANCE  FROM  THEA 

’  ‘0430  O-PR INT-A  SHORE  rtN  TER~tNFO“OW  "'INPU  T  ,t~ - - 

04310  INPUT  At 

04320  IF  AJ«AInPUTA  OR  NMAInFCA  THEN  04360  .  . 

04330  PRINT  AYCUR  ANSWER  MUST  BE  EITHER  INPUT  OR  INFO. A 

04340  PRINT  APLEASE  RETYPE  YOUR  ANSWER. A~  . - . 

04350  GOTO  04310 

-<14360  -t  F~WJ-« A I NPUT  A-  THEN— 0«  80 - 

04370  GOSUB  14910 

043B0  PRINT  . . . . . 

04390  PRINT 

04400  PRINT  AENTER  THE  LATITUDE  OF  THE  SPILL  IN  DEGREES*  MINUTES. A 
04410  PRINT  AANO  SECONOS  NORTH  OF  THE  EQUATOR. A  * 

0*430  PRINT  *ENTER  ThE  DEGREES  FIR5TA 

04440  INPUT  W  ’  -  . * .  '  ■  • 

04450  A«INT<W> 

04460  IF  W  <»89  THEN  04500  "  .  . 

04470  PRINT  ACEGREES  ENTRY  FOR  LATITUDE  MUST  BE  LESS  THAN  90. A 

-044n0“pRTNr'APL-e»sr  HEme  "your- answer. a - -  — 

04490  GOTO  04430 

04500  Ll$*STRf  (A )  .  ... 

04510  IF  LEN(L1SI»2  THEN  04530 
04520  Llf»AOA*LlS 

04530  PRINT  ANOW  ENTER  THE  MINUTES. A 

0454TT INPUT  W - - - - -r  - 

04550  A«INT<A» 

04560  IP  A  <  60  THEN  0460Q 

04570  PRINT  AM  JNUTES  ENTRY  MUST  ALWAYS  65  LESS  THAN  60. A 
04580  PRINT  APLEASE  RETYPE  YOUR  ANSaER.A 
04590  GOTO  04530 
04600  L2S*STRS < A) 

04610  IF  LEN (L?f ) *2  THEN  04630 
04620  L21aA0A.l2> 

04630  PRINT  ANOA  ENTER  THE  SECCNOS.A 
04640  INPUT  A 
04650  a»INT(a> 

04660  IF  A«»0  THEN  ‘04690  ”  ~  -  -  •  ' -  •  ‘ 

04670  L3»»A00A 
04680  GOTO  04770 
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04690  IF  Vi  <  tO  THEN  04730 

04700  PRINT  ASECONDS  ENTRY  MUST  ALWAYS  BE  LESS  TfiAN  60. A 
.  04710  PRINT  APLEASE  RETYPE  YOUR  ANSWER. A 

'  TT4720-OTTC '  04630 - - ■ , - 

04730  W*INT(W) 

04740’  L3S*STR$(WT  . . .  . . . . — - - 

04750  IF  W>*10  THEN  04770 

04760  L3$SA0A*L31"  - . . .  . . .  - . - 

04770  L7$*A.A 

"  04780  -LS  I  l)  *t  IT*L2S  ♦t3**C7r - - 

04790  Z<1.20)«6010 

04800  PRINT  -  . . . .  ’  - - -  ~ 

04810  IF  F4»l  THEN  09740 

04820  PRINT  AENTER  THE  L0N6ITUCE  OF  THE  SPILL  IN  DEGREES  .""MINUTES* A 
04830  PRINT  AAnC  SECONDS  WEST  CF  GREENWICH. A 

"O«ff40-PRINTTiENTE1T"TRE"OEGWEES-nRSrrA - - - ~ 

04850  INPUT  W 

04860  W*INT(W)  .  . . . . . . . - .  *  - 

04870  IF  *<180  THEN  04910 

04880  PRINT  ACEGREES  ENTRY  FOR'LONGITUOE  MUST  BE  LESS  THAN  180. A  " 
04890  PRINT  APlEASE  RETYPE  YOUR  ANSWER. A 

~Tr*900^30Ta~04fl40 - 

04910  L4$*STR$ (W ) 

04920  IF  LEN(L4J)»3  THEN  04960  ~  '  ’  . . .  —  - . . 

04930  L4$*A0A*L4$ 

04940  IF  LEN  (L41) *3  THEN  04960  . . . 

04950  L4$«A0A*L49 

•“0496 (TPR INT  'AKCT  ENTE  R  TPE~M IN  UTES  i-* - - - 

04970  INPUT  W 

04980  WalNT(W)  ''  -  . . . - . .  -  . - . — 

04990  IF  W  <  60  THEN  05030 

05000  PRINT  AMINUTES  ENTRY’ MUST  ALWAYS  BE  LESS  THAN  60*  . . .  . . 

05010  PRINT  APLEASE  RETYPE  YOUR  ANSWER. A 

~O5O70rmJTO~ff496O- - 

05030  L5S*STH1(W) 

05040  IF  LEN(L5S)»2  THEN  05060 - - 

050S0  L5SaA0A*LS1 

05060  PRINT  ANOW  ENTER  THE  SECONDS. A . . . . * .  ’  . 

05070  INPUT  W 

05080-TF^T“<— 6TT'TH'EN~ff5120' - 

05090  PRINT  ASECONOS  ENTRY  MOST  BE  LESS  THAN  60.A 

05100-PRINT  APLEASE  RETYPE  'YOUR  ANSWER. A  ~ - -  "  —  '  . 

05110  GOTO  05060 

05120  W«ROF(W>  . . . 

05130  W*INT(W) 

-  mooTcrwsTRtrvj - - 

051S0  L79«A.A 

05160  IF  W>*10  THEN  05180  .  ”  ’  . . 

051 70  L6W0A»L6S 

0S180  L1(2)»L41«L5**L6t*L7S 

0S190  7(1.21 (=6011 

•05200'TF  T6*VTFEN~0V740 - - - - - - 

05210  PRINT 

05220  PRINT  AENTER  ThE  DISTANCE  FROM  THE  SPILL  TO  THE  SHCRE  ALONGA 
05230  PRINT  USING  05240.031 

05240  l THE  DIRECTION  CF  THE  .INC  IN  <==========55 

052S0  INPUT  W 
05260  2(2.22)** 

05270  REM  ACALC  TIME  FROM  THIS  WA 

05280  PRINT  * 

05290  IF  F4*l  THEN  10020 
05300  PRINT 

05310  PRINT  #ThE  NEAT  INPUT  *ILL  SPECIFY  THE  TYPE  OF  CAHAUt  YOOA 
05320  PRINT  AWANT  CCMPUTEC  FOR  THE  GEOGRAPHICAL  AREA  WITHIN  WHICH  YOU* 
05330  PRINT  AwANT  THE  OAHAGE  CCwPUTtC.A 
05340  PRINT  AENTER  EITHER  INFO  OR  INPUT. A 
05350  INPUT  *1 
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05360  IF  WisPlNPUTP  CR  W$*PINFCP  THEN  05400  . 

05370  PRIM  PYOUR  ANSWER  MUST  6E  EITHER  INPUT  OR  INFO.P 

•OSJITO'PRiNr'PPtWE-  HEtYPE-  YOUR-ANSwWrP - - - - 

'  05390  GOTO  05350  ^ 

05400  IF  Wl»PlKPUTP  THEN  05420  - ~ - - - - — - - 

05410  G05U8  15200 

05420  PRINT .  . . .  —  - - - - - - - - - 

05430  PRINT  P  THE  COOES  FOR  THE  TYPES  OF  OAMAGE  THAT  CAN  HEP 

•~054WPffTNT~yCOT»POTep"8T  THE  VP  APE"TH£— fOtXCWTKK***? - • - - - 

05450  PRINT 

05460  PRINT  -P -  -  1  *  TOXIC  DAMAGE* . -  - - - — -  -  - 

05470  PRINT 

05480  PRINT  P  '  2  sFIRE  DAMAGE  FROM  POOL  BURNING  (DUE  TO  BURNINGp  - 
05490  PRINT  P  OF  SPILLED  LIQUID  ON  THE  HATER) P 

—05500  "PRINT - - - 

05510  PRINT  P  3s  FIRE  DAMAGE  FROM'  FIREBALL  (DUE  TO  RAPIOP 

05520  PRINT"  P -  COMBUSTION  OF  LIQUID-VAPOR  MIXTURE  TP - - - 

05530  PRINT 

05540  PRINT  P  "4  »  FIRE  DAMAGE  FROM  FLASH  FIRE  (DUE  TC  BURNING  OTP 

05550  PRINT  P  DISPERSED  VAPOR  CLOUO)  OAMAGE  FROM  ExPLOSIONP 

~  05560_PRINT"P - OF  "THE  VAPOR  "CtOUO  “I  S’  "A  LSD"  COMPU  TEC”  WHEN-  TT»  I S"  OPT  ICNP* 

•05570  PRINT  P  IS  SELECTEOP 

05580  PRINT  . .  -  - . - 

05590  PRINT  PENTER  THE  NUMERIC  COOL  FOR  THE  TYPE  OF  DAMAGE  YOU  AREA 
05600  PRINT  PINTERESTEO  IK.  ONLY  ONE  COOE  CAN  BE  ENTERED  FOR  ANYP 
05610  PRINT  PONE  RUN.P 

- - 

05630  IF  Hsl  OR  H«2  OR  W«3  OK  W*4  THEN  05670 

0S640  PRINT  P  YOUR  ANSWER  MUST  BE  I*  2*  3*  OR  4iP  -  -  - - 

056S0  PRINT  PPLEASE  RETYPE  YOUR  ANSWER. P 

05660  GOTO  05620 -  “ - -  - - - . .  — . .  . 

05670  2 ( 1 .23) >5003 

~trs65TrrrmasT  *soo4 — 1 - - - 

05690  2(l»t06)*S006 

05700  2(2. 23)»W  . —  —  "  ’  . . .  — . .  •  - - - 

05710  IF  2(2*23)>1  OR  2(2.23)>4  THEN  05740 

05720  2(3«t06)*Z(2*23> -  - - -  - -  ’ 

05730  GOTO  05750 

“05740""2T3«  I06TW0 - - 

05750  IF  2(3.144)>I  AND  2<3.I45)*1  ThEN  05820 

05760  IF  2(3.145)»l  THEN  05820  . 

05770  IF  2(2*23) *2  OH  2(2'23)*3  OR  2(2'23>>4  THEN  05820 

05780  PRINT  PTHE  CHEMICAL  SPILLEO  IS  NOT  SUFFICIENTLY  TOAlC  TO  CAUSEp 

05790  PRINT  PSIGNIFICANT  TOXIC  OAMAGE*  A  HUN  REQUESTING  FIhE  UAMAGE  ISP 

••OSAOO-PRtNT-PRtrCOMMeNOeO-lP - - 

05810  GOTO  05420 

05820  IF  2 (2*23) ■!  THEN  05850  .  -  . 

05830  2(3*23) *1 

05840  GOTO  05860  . 

05850  2(1*23)s() 

05860  HEM  ATHIS  TO  EDIT  TYPE  OF  CHEMICAL* - -  - - -  ■  - 

0S8T0  IF  2  (3 •  144 ) >1  AND  2(3*145)sl  THEN  05930 
05880  IF  2 (3* 144) >1  THEN  05930 
05890  IF  2 (2*231 ■!  THEN  05930 

05900  PRINT  PTHE  CHEMICAL  SPILLED  IS  NOT  FLAMMABLE*  HENCE  THERE  CAN  HtP 

05910  PRINT  AND  FIRE  CAM«GE.  A  RUN  REQUESTING  TOXIC  OAMAGE  IS  RECOMMENDED. P 

05920  GOTO  05420 

0593p  IF  2 (2.23) >1  ThEN  05960 

05940  2(3*l05>*0 

05950  GOTO  05970 

05960  2(3*1 05 1 • 1 

08970  PRINT 

05980”'  IF  F4*l  THCN-IOEJO*-  ~  - -  - 

05990  PRINT  pTmE  NEXT  THREE  INPUTS  SELECT  THE  GEOGRAPHICAL  AREAP 
06000  PRINT  POF  INTEREST.  THE  CPTIUN  TO  CONSIDER  GENERATION  OTP 
06010  PRINT  pSECONOAmY  FIRES*ANC  ThE  FRACTION  OF  THE  POPULATION# 

06020  PRINT  pwhICH  IS  PROTECTED.  ENTER  INFO  CR  INPUT. P 
06030  INPUT  »« 
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-06040" IF -VSwAlNPUT#-OR  *$«#lNFC*-TMenrQ6M0- - ’ - 7 - — 

06050  PRINT  AYCUR  ANSWER  SHOULD  HAVE  BEEN  EITHER  INFO  OR  InPuT.# 

06060  PRINT  APlEASE  RE-TVPC  YOUR  ANSWER.#  '  ~ 

06070  SOTO  06030 

06000  IF  WS«AlNPUTA  THEN  06110  . .  . . 

06090  COSUB  15630 

“06100  PRINT - - - 

06110  PRINT  ABASED  ON  THE  LOCATION  OF  THE  SPILL  AND  THE  WIND  DIRECTION# 
06120  PRINT  ASELECT  THE  APPROPRIATE  GEOGRAPHIC ' F ILE  FOR  YOUR  PROBLEM. A 
06130  PRINT  AVOU  WILL  NEEC  TO  USE  THE  SPECIAL  MAPS  WHICH  HAVE  BEEN  PRE-# 
06140  PRINT  APAREQ  SHOWING  THE  PORT  AREAS  INCLUOEO  IN  EACH  GEOGRAPHICAL  A 
06150  PRINT  AFILE.  ENTER  THE  FCUR  DIGIT  FILE  NUMBER. A 

'OmoriNPUr  W - - ; - -  — 

06170  G4«0 

06180  IF  WHOOO  AND  "<9999 ’THEN  06220  - - -  *  . 

06190  PRINT  AYCUR  ANSWER  RUST  BE  A  FQUR<4>  DIGIT  COOE.A  • 

06200  PRINT  APtEASE  RETYPE  YOUR  ANSWER.#  ’  ~  ~  . —  -  . 

06210  GOTO  06160 

~0S2r2Cr2{2T24J*W - - - 

06230  GOSUB  19910 

06240  IF  G4<>1  THEN  06260  •  '  "  .  . . .  . .  - . 

06250  GOTO  06160 

06260  2  (1  *24)*10  ”  ’  “ .  - 

06270  IF  F4«l  THEN  09740 

~ 062BP~TF'  212.73TAT  THEN-GE4S0 - : - 

06290  PRINT 

06300  PRINT  ACO  YOU  WISH  TO  CONSIOtR  SECONDARY  FIRES  FROM  POSSIBLE# 

0*310  PRINT  AlGNITICN  OF  STORAGE  T«NKS  OF  COMBUSTIBLE  MATERIALS*# 

06320  PRINT  AAnSwER  YES  OR  NOA .  — . - 

06330  INPUT  W9 

~0634(rmT25)  "3004 - 

06350  IF  "l«AYfSA  OH  "S-ANOA  THEN  06390 

06360  PRINT  AYCUR  ANSWER  RUST  BE  EITHER  YES  CR  NO. A  * . -  -  . 

06370  PRINT  APlEASE  hETYPE  YOU#  ANSWER. A 

06380  GOTO  06330 

06390  IF  W1«AYESA  THtN  06430 

‘  06400“7T3  J2Srkff - 

06410  M5S-WS 

06420  GO  TO  06450  ~  "  . . . '  ~  . .  . 

06430  2  (3.25) *1 

06440  M$»«WS  •  -  . 

064SQ  IF  F4«l  OR  F4»2  THEN  0V740 

•  •OWWPITINT- - 

06470  PRINT  AENTER  THE  FRACTION  OF  THE  POPULATION  WHICH  IS  SHELTERED# 

06400  INPUT  W  .  "  ■ 

06490  IF  *«1.0  THEN  06530 

06500  PRINT  AYCUR  ANSWER  RUST  BE  A  FRACTION  LESS  THAN  1.00. A 
06510  PRINT  APtEASE  RETYPE  YOUR  ANSWER. A 

06520-O0TO- 064*0 - - - - - - -  -  — .  .  ..... 

06530  2IP.26I »* 

06540  2 I 1 >26) *5036 
06550  2<3«2M«. 

06560  IF  F4«l  CR  F4»2  THEN  09T40 

065T0  PRINT  A  THE  FINAL  SET  OF  INPUTS  IS  NE60E0  TO  SPECIFY  THE  VARIOUS# 
06560  PRINT  »Tl#ES  AFTER  THE  SPILL  FOR  WHICH  SPILL  DISPERSION  ANOA 
06590  PRINT  aEFFECTS  C»LCLLAT1CNS  MUST  BE  MACE.  THE  VM  IS  A  TImE-A 
06600  PRINT  ASTCPPCC  SIMULATION  AND  THE  SPECIFICATION  OF  THE  TIME* 

06610  PRINT  ASTERS  IS  CRITICAL  TO  ACHIEVING  MEANINGFUL  RESULTS.# 

04620  PRINT 
06630  PRINT 

06640  PRINT  ABASEC’tN  THE  INPUTS’ YOU  HAVE  ALREADY  PWOVtCfcO.  Tm£  PmOUMAHA 
06650  PRINT  ah*S  SELECTED  A  TIRE  SEUUEnCE  WHICH  »lLL  PRCVtuE  A  USCFuLA 
06660  PRINT  ASET  OF  RESULTS.  THIS  SbCUENCb  MAKES  COMPUTATIONS  ATA 
O66TO  PRINT  aInFREOUENT  INTERVALS  ■RILE  ThE  haJAMOOUS  VAFOk  CLUUOa 
04600  PRINT  A  I*  TRAVbRSINC  WwTER  AND  AT  MORE  FREQUENT  INTERVALS# 

06699  PRINT  a (EVERY  TWO  MlNuTESt  WHILE  TRAVERSING  LANC.a 

06700  PRINT  -  —  -  * 
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06710  PRINT  PTC  IMPROVE  ACCURACY  OR  COMPUTING  EFFICIENCY*  YOU  MAY  RANT* 
06720  PRINT  #tC  CHANGE  THIS  TIME  SEQUENCE.  IF  -YOU  00,  INTER  EITHER# 

06730  PRINT  #INF0  OR  INPUT*  UEPENOING  UPON  bHETHER  YOU  NEED  INSTRUCTIONS# 
067*0  PRINT  #OR  ARE  ALREACY  PREPARED  TO  INPUT.'  IF  THE  COMPUTED# 

06750  PRINT  #TIM£  SECUENCES  ARE  SUFFICIENT  ENTER  NO.# 

06760  PRINI - - - - , - 


06770  PRINT  #CO  YOU  RANT  TO  CHANGE  THE  TIME  SEQUENCES (INFO.INPUT.OR  NO)# 

06780  INPUT' US - — . . . ' - - 

06790  B3MRS 

06800  tF',NS«#N‘0#  'OR'bS«#IKFO#'  OR  Min*#INPUT#  THEN" 068*0 


06810  PRINT  #YOUR  AN5MER  MUST  BE  El HER  INFO.  INPUT.  OR  NC.# 

-08820  ■PRINT  MPLTASf  RETYPETOUR— JtNSbER*# - 

06830  GOTO  06780 

068*0  "IF~*S»#M)#'  THEN  67*10 - - - 

06850  IF  MSMIKPUT#  THEN  06860 

06660 “G0SU8' 16120 - - - 

06870  IF  MS«#INF0#  THEN  06780 
*“ 06880'“RER“*REFCY-FOR— INPCT~VT#— RETURNY" 


06890  PRINT  #F1U  IK  THE  INPUTS  FOR  THE  THREE  TIME  SEQUENCES# 
06900  PRINT  #REQUESTEO  bELOW.  TYPE  IN  0*S  IF  YOU  00  NOT  btSH  TO# 
06910  PRINT  #USE  A  PARTICULAR  TIME  SEQUENCE.# 

06920  PRINT  . 

06930  PRINT  #START  OF  FIRST  TIME  SEQUENCE  IN  SECONDS  AFTER  THE# 
'869*0  "PRINT -  - - 

069S0  INPUT  M 

06960  2(2*27)«W . . . - . . . 

06970  2(3.27)aw 

06980  IF  F*»T  THEN  097*0  '  “  . . . . . .  . 

06990  PRINT  #T1N£  BFTbEEN  DAMAGE  COMPUTATIONS  IN  SECONOS.* 
-'CTOOff-TNPUT  V 


OT010  2(2.29)*w 

07020  2(3*29)at, .  - . -  . -  . . 

07030  IF  F*al  THEN  097*0 

070*0' PRINT  #ENOOr  FIRST  TIME  SEQUENCE  IN  SECONUS  AFTER' SPILL  OCCURS.#' 
07050  INPUT  b 

-trro6«mTr28T  a* - — 

07070  2(2*28) ■* 

07080  IF  F*al  THEN  097*0  '  .  -  ■  -  . . 

07090  PRINT  #5TART  CF  SECONO  TIRE  SEQUENCE  IN  MINUTES  AFTER  THE  « 

07100  PRINT  #SP!U  OCCURS.#  '  ’  . 

07110  INPUT  b 

“67120  2(200)  «b*  - - - 

07)30  2(3.30)aa 

071*0  IF  F*al  THEN  097*0  —  • 

07156  PRINT  *TIR€  BETbCEN  DAMAGE  COMPUTATIONS  IN  MINUTES*# 

07160  INPUT  M  ....  -  .  .. 

071TO  2(2.32).. 

67180  7'tS*32l'*\J'  ~  - — 

07|90  IF  F*a|  THEN  Q97*0 

07200  PRINT  #£NO  OF  SECONC  TIME  SEQUENCE  IN  MINUTES  AFTER  SPIUU  OCCURS.# 
07210  l!.PUT  » 

07220  if  (2.3 1 )  ■* 

07230  2(3.31 ) *b 

0*2*0  IF  F**l  THEN  09T.0 

07250  TSfARi  C*  TMSC  t|m£  SEQUENCE  IN  MINUTES  AFTER  THt# 

07260  PRINT  *SS>IU  OCCURS.# 

07?70  INPUT  b 
07290  7(2*33)*'* 

07?V>  ?I301»1 

07S06  !FF**I  THEN  057*0  .  ...  . . .  . 

073)0  PRJnT  #T(RE  GCTbEEN  DAMAGE  COMPUTATIONS  tN  MINUTES*# 

07320  INPUT  a 
073J0  2(2*35) >v 
073*0  20. 35)** 

07350  IF  F**I  THE*  0*7*0 

07360-pRTNT  #EN0  CF  ThIBC  TIME  SEQUENCE  IN  MINUTES  AFTER  $P»U  INITIATION.# 
07370  INPUT  a 
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07380  2 <2.34) «h 
07390  20.34)** 

07400  IF  F4*l  THEN  0974C  '  ’  '  - -  -  - 

07410  Z(l.27)»6001 

-07420  Tf 1.297*600? - 

07430  2(1.281*600;? 

07440  2(1001*6004  ~  - - - - 

07450  2(1021*6006 

07460  1(1011*6005  ~  ’  . . 

07470  2(1031*6007 

■oTWffm.TsrsYoijo- - 

07490  2(1041*6008 

07500  IF  F4*1THEN  09740 -  "" - - - - 

07510  IF  9*<>FN0F  THtN  87900 

07520  IF' Z (3.1051*1  THEN  07880 - - -  . - 

07570  REM  FUSE  CEF6ULT  TIME  SECF 

~TI754(rT*2  (ZYZ217  (50*TT2TTET7 - 

07550  FOR  1*1  TO  9 

07560  12*26*'!  . . . . . .  .  . . 

07570  2(2*12)*0 

07580  2(3.121*0  '  .  . .  ’■ — . 

07590  NEST  1 

-07CT0 'rr-tn  mrF)ao"TFE>nr764'o - - - 

07610  1(3.271*1 

07626  7(3.281*20  - -  '  - 

07630  2(3.291*2 

07640  IF  T  >  10  THEN  07690  - ~ - - * - * - 

07650  2(3.301*2 

*‘07660'  Z  (3.-321*2 - ; - - - 

07670  2(3.31I»F0 

07680  T3OT0  07860'  '  "*'  -  - - - - * - - - - - 

07690  IF  T>100  THEN  07*30 

07700  Tl*INT((T/SH  '  . . . ” .  * 

0TT10  T1*T1*5 

-o  r  *r  — - —r' - - 

07730  2(3.311*71 

07740  7(3.321*5  * - - - '  ’  - -  -  “ 

07750  2(3.341*71*80 

07760  2(3*351*2  ..  .  —  ~  .  ... 

07770  00T0  07860 

-  07780  T1»INT t( TV 50 IT" - - - - - - * - 

07790  2(3.301*90 

07800  71*71*50  -  - - -  -  - — -  - ■■ 

07810  2(3.311*71 

07820  2O.32>*«0  *  " 

07830  20.331*71 

*‘0784'0*773 .  347971*®  0™“““ - - - - - ; - - — t - -  - *  T 

078502(3.351*2 

07860  ir  F4*l  THEN  09740 

07870  GOTO  07900 

07880  f(3.30)«?n. 311*80  *•  “  “  “ 

07690  20.321*1 
07900  PRIM 

07916  PRINT  *7*4  FCiUMMS  IS  *  List  OF  THE  FU.E  T»lU  w**£  »•** 

07920  PRINT  ’  '  *  "" 

07930  PRINT  »TcE  UNITS  OF  HE«SUR€RtNT  MCI* 

0T9*0  PRINT  T*6 (10) »FPRE5SURk*F*F6TH0SPHC«CS.F 
0T950  PRINT  T4tj(lOM*TERRER*ruR€-F.01» 

0T960‘*MllNT'*T*Prr*n'meNGTH*‘r!C35 - * - * - - - - — v'“" 

07470  PRINT  T*PU0M*v0LUHE“*.C2» 

07980  PRINT  T»§(}ttlF9EtOClTY-F,04» 

07990  PRIM 
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08000  REM  FUST  OUT  Tt-E  UIH  FILE  TO  THE  TERMINAL* . 

08010  PRINT  USING  0»020 

— o«o?o~*t— number"  of-input - urAME-w-nsPtn - user- input — 


08030  PRINT 

08040  PRINT  USING  08050, Mr*""' - - - - - - 

08050  i  1  CHEMICAL  CODE  > 

08060  'PRINT  USING  08070*Z(2,2>  -  -  . . 

08070  8  2  CARGO  TEMPERATURE 

"08060  'PRINT  US TNG~~080VO,Z'(2V3 ) - 

08090  8  3  TANK  PRESSURE 

08100  PRINT  USING  08110,Z(2»4>  . . . . ~ 

08110  J  4  TANK  CAPACITY 

08120  PRINT  USING  08130. ZI2*5>  '  - - - 

08130  8  5  TANK  HEIGHT 

“081 4TTPRTNT  USING  0815C»Z T2T6T - 

08150  t  6  FRACTION  TANK  FILLED 

"08160  PRINT  USING  08170,7(2171"'  - - —  . . 

oano  8  7  HOLE  OIAMETE? 

08180  PRINT  USING  0ei90. 2(2,8)  . "" . — . 

08190  8  8  HEIGHT  OF  CENTERLINE 

-08200- PRINT  "USTKG-0821  OrZt2fV ) - 

08210  8  9  HEIGHT  OF  HOLE  BOTTOM 

'08220  PRINT  USING  08230, Z<2, 10)  '  . . .  . 

08230  8  10  SPILL  LOCATION 

08240  PRINT  USING  08250, Z <2, I 1 ) 

08250  8  11  MATER  TEMPERATURE 

'"08260  "I F"?T2,  t'0T='l— THEN  D835 U - 

08270  PRINT  USING  08280,2(2,12) 

08280  8  12  CHANNEL  WIDTH  -  -  —  — 

08290  PRINT  USING  08300 ,Z (2* 13) 

08300  8  13  '  "  AvtRAGE  RIVER  DEPTH . . 

08310  PRINT  USING  08320,2(2,14) 

'  08320  -T - T4 - AVt^AGE-RlVER-VECOCtTY - 

08330  PRINT  USING  08340,2(2,15) 

08340  8  IS  TYPE  OF  RIVER  BANKS  ""  "  — 

08350  PRINT  USING  08360,2(2,16) 

08360  8  16  . AVERAGE  MIN'0  SPEED  - 

08370  PRINT  USING  08380,2(2,17) 

"  08380“t - T7 - M INO-OTRECTION - 

08390  PRINT  USING  08400,2(2,18) 

08400  8  18  -  AIR  TEMPERATURE  - 

08410  PRINT  USING  08420, MS* 

084208  19  ATMOSPHERIC  STABILITY  CODE  » 

08430  IF  VtaANEMA' THEN  08470 

"0  8440  -cer  ti  i  »suBSTR(ttm  ,132  > - 


2—  — — 


—=555-2 - 


08450  LET  L2S«SUHSTH<LIU>»3»2> 

08460  LET  L3S«SU8STR(L*(1),S,2) 

08470  PRINT  USING  08480,Lli,L2J,L3i 

08480  l  20  DEGREES  LATITUDE  . »==  »55' »== 

08490  IF  Vt**NE*F  THEN  U8530 


'  08500  "XET'CASsrSUfTSTB'CCI  - - - - - 

08510  LET  L5S»SU8STR(Li(2) ,4,2) 

08520  LET  L6I«SU8STH (LI (2) ,6 .2 > 

06530  PRINT  USING  08S40 ,L4l,LS» *L6» 

06540  8  21  DEGREES  LONGITUDE  >55; 

08550  PRINT  USING  085e0, 2 (2,22) 

08560  8  22  OISTANCE  OF  SPILL  TO  SHORE 

08570  PRINT  USING  08580,2(2,23) 

08580  8  23  TYPE  OF  DAMAGE 

08590  PRINT  USING  08600,2(2,24) 

08600  8  24  GEOGRAPHICAL  FILE 

08610  IF  2  (2,231*1  THEN  086^.6 

08620  PRINT-USING  081305M51  .  "  . . . “ 

08630  8  25  SECONDARY  FIRES 

08640  PRINT  USING  08650,2(2.26) 

08650  8  26  POPULATION  SHELTERED 

08660  83*0 

08670  ZU.  12l)«30 


>==: 
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-treeao'ir  e3s«*N0*-THEN-aR89O“ - -  - 

06690  63*1 

08700  PRINT  USING  08710*2(2*27)  . 

08710  I  27  BEGIN  FIRST  TIME  SEQUENCE 

08720  PRINT  USING  08730*2(2.29)  . . 

08730  t  28  BETWEEN  FIRST  TIME  SEQUENCE 

‘ 08740  PRINT  OSTNG~'087SO‘*2T2VZ8) - - - 

08750  S  29  ENO  FIRST  TIME  SEQUENCE  55: 

08760  PRINT  USING  08770*2(200) . . . . .  — 

08770  t  30  BEGIN  SECONC  TIME  SEQUENCE  55: 

08780  PRINT  USING  08790*2(202)  . . .  . 

08790  t  31  BETWEEN  SECOND  TIRE  SEQUENCE  5i 

~08fl00~'PRINT"0ni')S"'CB8't0*272OIT - 

08810  S  32  ENO  SECOND  TIME  SEQUENCE  55: 

08820  PRIM  USING  08830.2(2.33)  “  ’  *  . *  .  . . 

08830  I  33  BEGIN  TH1R0  TIME  SEQUENCE  55: 

‘  08840  PRINT’ USING  088500(2*35) . .  ““ - - - - 

08850  >  34  BETWEEN  THIRD  TIME  SEQUENCE  5: 

“0886O~PRirrUSIN(r-ff8e7O*2T2*30T— - 

08870  I  35  END  THIRD  TIME  SEQUENCE  .  55: 

08880  GOTO  08900  ’  -  ’  " ~  *  . 

08890  63*0 

08900  PRINT  .  . . 

08910  PRINT 

*  08920  PRINT - * - 

08930  PRINT  *00  YOU  WANT  TO  MAKE  ANT  CHANGES  TO* 

08940  PRINT  *  THE  CONTENTS  OF  THIS  FIUE  (VES  OR  NO)*! 

08950  INPUT  X2f 

08960  IF  X2T»*NO*  THtN  09020  ...... 

08970  IF  X2M*YES*  THEN  09000 

"  089B(TPRTNT-*Y0UP  »NS«CR-PQSr-BE  eiTHCR-TEV  CN-NOK* - 

08990  GOTO  08930 

09000  IF  K1«*Y£S*  THEN  09360 — . . . . .  * 

09010  GOTO  09160 

09020  PRINT  . .  . 

49030  PRINT  *CO  YOU  WANT  TO  MUN  A  VM  SIMUUAT10N* 

~TP7G4G-~PRTNT~«U5 TW THESE  *C X7T~TYES~*0Rr*N0 m - 

09050  INPUT  Yl 

09060  IF  Yt**YFS*  Oir  YWNQ*  THEN  09190 . .  — .  • 

09070  PRINT  *PUEA$E  ENTER  CITHER  YES  OH  NO.* 

09080  GOTO  09030  -  *'  '  * . 

09090  IF  w»«*UIST*  THEN  07940 

-09TOO  TF-W»»rrrS*  "AM) ' K 1 0'WYCS**“TMEM— 09 tsO - - 

09UO  IF  W1**N0*  THEN  09020 

09120  IF  W1**YCS*  THEN  09360  -  '  . —  . 

09130  PRINT  *Y0UR  ANSWER  MUST  eE  EITHER  YES  CM  NO.* 

09140  PRINT  *PlCA$C  RETYPE  YOUR  ANSWER.* 

09150  GOTO  09600 

'  09160“  P4»T - - - - - - 

09170  PRINT  *INPUT  NUMBER*! 

091*0  GOTO  09390 
09190  PRINT 

09200  PRIST  <CC  VOU  SANT  TO  SAVE  THIS  FlUt  ON  DISK  (YES  CM  NO)*! 

092)0  INPUT  wi 

0922U  (F  wl*»KC»  THEN  092  )U 

09230  IF  *!*»YES*  TwtN  09260 

09240  PRIM  *A  S1MPUE  YES  OR  NC  WluU  CO.* 

09280  GOTO  09200 
09260  GOTO  09290 
09270  IF  Y4»*NC*  TM£n  19e<50 

09260  IF  Y|**Yf 5*  THE*  18800  * . *  •  ~  *  - 

09290  IF  F8*0  *N0  F4»0  THEN  09320 
09300  IF  F8*0  THEN  17720 
093)0  IF  FtUl  THEN  OV340 
09320  £**U» 

09330  GUSU6  17740 

09340  OOSUH  16*90-  ~  •  '  “  - - 

09350  GOTO  09270 
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09360  PRIM  *PLEA5E  ENTER  THE  NUMBtR  OF  THE  INPUT'  THAT  YCU  KANT* -  '  '  r; . -- 

09370  PRINT  *T0  CHANCE. A 

09380  F4*l  . . . .  .  . . . . . .  . . . - 

09390  INPUT  C 

-owor-c^rtvrto - - - 

09410  IF  K«o*YES*  and  C>0  ANO  C<36  THEN  09590 

09420  IF  C>0  AND  C<36  THEN  09440  "  - - - - -  - - 

09430  C0T0  09530 

09440  PRINT  *C0  YOU  WANT  THE  INFORMATION  STATEMENT  THAT" CONTAINS*  . 

09450  PRINT  ^INFORMATION  A80UT  THE  INPUT  THAT  YOU  WISH  TC  CHANGE.* 

0946Cr-INPUT"«-Y - - - — - - - 

09470  IF  wli»*Y£S*  OR  WIS«(NU*  THEN  09510 

09480  PRINT  (YOU  ANSWER  CAN'  ONLY  8t  YES  OH  NCi* - - -  - -  "  -■ 

09490  PRINT  APLEASE  RETYPE  YOUR  ANSWER.* 

09500  GO  TO  09460  - - -  - - - - - - -  * 

09510.  IF  C*1  THEN  09700 

09520'  GOTO  09570 - - - - - 

09530  PRINT  *THE  RANGE  OF  YOUR  INPUT  MUST  BE  BETWEEN  I  AND  35  INCLUSIVE.* 

09540  PRINT  *YOUR  ATTEMPT  TO  EXCEED  IT  IS  INVALID.*- - —  "  '  - . 

09550  PRINT  *Pu£AS£  RETYPE  YOUR  ANSWER.* 

09560  GOTO  09360  "'  . - .  - . -  • 

09570  IF  Wlf=*NC*  THEN  09590 

09580  GOSUB ‘10700 - - - - 

09590  IF  C*1  THEN  09700 

09600  IF  C>1U  THEN  09620  - - - -  -  - - 

09610  ON  C  GOTO  09700*  01310.  01490*  01670*  01770*  01870*  02100.  02280*  02390*  09820 

09620  IF  C>"20  THEN  09650  ''  "  — . . — -  - -  -  - 

09630  C«C-10 

09640  ON  C~GO TC"0?83r«~ 09 940 *  "09940*  099'g 0t~C9940-«~O3T! O'*— V3BIUTT- 03*20'*  lOVTOf — 0440(T~ - 

09850  IF  C>30  THEN  10670 

09660  C*C-20  '  "  '—  - -  — - - - — - - —  . . -  ■-  - . 

09670  IF  C>6  AND  83f<>*YES*  THEN  10500 

09680  ON  C  GOTO  04820  «  05220  .'10190  V 10990  *  1043(7 -*-06470  ."06920  *  06990  *  07040  .  070 
09690  PRINT  USING  08750.2(2*281 

09700'  PRTNT-*T0  "CKAN-GE'-THe-CH£nC#t-CCDe-->W'NOST'D0-Strtrr*CRfcAnNG* - - - 

09710  PRINT  *A  NEW  FILE.  E01T1NG  THE  CHEMICAL  CODE  IS  NOT  POSSIBLE* 

09720  PRINT  (0ECAUSE  QF  THE  DEPENDENCY  OF  THE  OTHER  VARIABLES*  . 

09730  PRINT  *ON  THE  CHEMICAL  PROPERT IES.ETC.* 

09740  IF  F6<>2  THEN  09170'  ~  v  . . — - - - - - -  '  . 

09 f 50  PRINT  *MQRE  CHANGES (YES.NO  OR  LIST)*! 

09760  '0070  09800  — ~ - - - - ' - ™- - - - - - *'•' 

09770  PPINT  *00  YOU  WANT  TO  CHANGE  ANY  OF  YOLR  OTHER  JNPLTS** 

09780  print  *  input  vts  or  no.*  -  — — . .  —  -  • 

09790  PRINT  *1F  YOU  NEED  A  USt  OF  YOUR  FILE  ANSWER  LIST.* 

09800  INPUT  Wl  J  .  •»  *>*•■  ‘t  <*.  «  «  •>.  *ii  .  <♦  *  t  •  •  '  ••  - 

09810  GOTO  09090 

09620  IF  ~f  6«2  THEN -02730"  '-’  " - -  - - - - - - - - - - - — - —  . 

09u30  PRINT  (YCUR  RE CUE 5 T  TO  CHANOt  THE  SPILL  LOCATION  WILL  BE* 

09840  PRINT  (PROCESSED.  HCWEvER  PLEASE  NOTE  THAT  U  If  YCU  ARE# 

09450  PM IM  *CHANG ING  FROM  AN  OPEN  WATER  LOCATION(COOEwl)  TO  A* 

09660  PRINT  *H1VE«  CM  CHANNEL  LOCATION  FURTHER  OUESTIONS  ABOUT* 

09870  PRINT  *ThE  filvt>  OR  CHANNEL  wlLL  BE  ASKED  OR  21  IF  YOU  ARE* 

O98R0  PRINT  (Changing  from  a  RtvER  UR  CHANNEL  LOCATION  TC  AN  OPEN* 

09890  PRINT  (WATER  LOCATION*  YCuR  PREVIOUS  INPUTS  wtTH  REGARO  TO* 

09900  PRINT  (The  CHANNEL  CR  RIVER  wlLL  BE  IGNORED.* 

09910  GOTO  02710 

09920  IF  2(2.I3lw»  TmEN  09740 

09930  GOTO  030n0 

09940  IF  7(2«|0I«2  TrEN  09990  “  . . .  "  •  — . 

89956  PRIM  (ThIS  INPuT  IS  U*EC  ONLY  WHEN  T**E  SPILL  LOCATION  IS  IN  a  * 

09960  PRINT  (RtvER.  YCUR  PREVIOUS  ANSWER  SPECIFIED  an  OPEN  WATER  SPILL* 

09970  PRIM  (LOCATION.  THE  EDITING  PROCESS  CANNOT  ENABLE.* 

09980  GOT  V  09740 
09990  C«C-1 

10600  F4e?  .  ' 

10010  ON  C  GOTO  03040*  03(60*  0326U.  03370 
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10030  IF  93S»#N0#  ThE*  07530  .  ’  * .  "*  . . ~ . .  . . — 

10030  PRINT  F  THE  WIND  SPEEO  AND  DISTANCE  FROM  THE  SPILL  TO  SHORE  OwTAF 
10040  PRINT  FARE  USED  BY  THE  PROGRAM  TO  CALCULATE  THE'OEF AULT  TIME  SEQUENCES.# 
100S0  PRINT  FSINCE  YOU  OVERRODE  THE  TIME  SEQUENCES*  THIS  INPUT  HAS# 

10060  "PR INT~ FNC~RE  At~MEAN INOV  CO- TOO- VAN7“ THES£—SEQtj€RC£S""tR"ASEDv# - 

10070  PRINT  #1F  YES.  THE  PROGRAM  WILL  COMPUTE  THE  TINE  SEQUENCES# 

10060  PRINT  FUSING  THE  NEW  0#TA ."# - -  - - - 

10090  PRINT  FlNPUT  YES  OR  NO.# 

10100  INPUT  W$  .  .  •  •  •  -  - - -  - : - - 

10110  IF  WS*FYES#  OR  WS«FNOF  THEN  101S0 

10130 "  PRINT  FT  OUR*  ANSWER  ‘MUST"  BE  EITHER"  "YES~CR"'NOTF - 

10130  PRINT  FPLEASE  RETYPE  YOUR  ANSWER.# 

10140  GOTO  10100 . . . - . — - - - - - - -  - - 

10150  IF  wt»FNO#  THEN  09740 

10160  B3S«FYES# - - - - - - - - T""""  ~ 

10170  F4«l 

‘  1018  0~GO  TO"” 075  30 - - 

10190  Tl»2 (3.33) 

10300  IF  F6 <>3  THEN  05430  “  "  ’  “  *  . ".  - - - - 

10310  PRINT  #CAMACE  COOEU.2.3  OR  4)F« 

10330  GOTO  05630  .  ”  " - - - - - 

10330  If  2 (2.33)*T1  THEN  097*0 

10340  TF  "T T » I"  "*V0~7T? •ZJTTV THEN- 10370 - 1 

10350  IF  Tl»l  4NQ  2<2*33)>1  THEN  10310 

10360  PRINT  - - -  - - 

10370'  PRINT  #YOUR  REQUESTED  CHANGE  TO  TOXIC  DAMAGE  HAS  BEEN  PROCESSED.# 

10380  PRINT  #Y0UR  PREVIOUS  INPUTS  WITH  REGARD  TO  FIRE  DAMAGE"WltL- BfeF - 

10390  PRINT  #C!SCARQE0.» 

— 1 0300“  GOTO”  09750 - - - 

10310  F4«2 

10330  PRINT  -  . -  - - - - — - 

10330  PRINT  #YOUR  REQUESTED  CHANGE  TO  FIRE  QAMAGE  HAS  BEEN  PROCESSED.# 

10340  PRINT  #THE  PROGRAM  WILL  NOW  ASIt  YOU"  FURTHER' QUESTIONS- Nt'EOED  FOR# - - 

10350  PRINT  FTHE  VULNERABILITY  MODEL  IN  MODELING  FIRE  DAMAGE.# 

~lOJ60~OOT<rD63OT) . . - - - - - . . . 

10370  PRINT 

10380  PRINT  #YOU»  REQUESTED  CHANGE  IN  THE^TYPE  OF  F1RF  C*H»GE"H&S  8t€N#~ — 

10390  PRINT  #PROCESSEO.  YOUR  INPUTS  WITH  REGARD  TO  SECONDARY  FIRES  AND* 

10400  PRINT  FTHE  FRACTION  OF  THE  POPULATION  SHELTERED" H4VE  "NOT “CHANGED*"# “  “ 
10410  PRINT  FYOU  MAY  EOlT  THESE  SEPARATELY  IF  YOU  WISH  TC  CHANGE  THEM.# 

1 043<r  GOTO"  -09  74  0*' - * - — - - - : - - — - 

10430  IF  2 (3*23) >1  THEN  06300 

10440  GOTO  10450  - -  - - -  — - 

10450  PRINT  *THI$  USER  INPUT  IS  ONLY  USEC  WHEN  REQUESTING  THE  VULNERABILITY# 
10460  PRINT  #MCC£L  TO  SIMULATE  FIRE  DAMAGE.  SINCE  YOU" REQUESTED  A  RUN#  " 

10470  PRINT  FHOOELlNG  TOXIC  DAMAGE.  THIS  INPUT  IS  NOT  USED.  THE  EDITING# 

10480-PRtHr  tPnOCESS*CANNCT"8E-TN«HCEOV# - - - - - — - - 

10490  GOTO  09740 
1050"  PRINT 

10SI0  PRINT  »THE  PROGRAM  HAS  CALCULATED  TmE  DEFAULT  TIME  StOUtNCES.  PEN# 

1QS30  PRINT  #Y0UR  REQUEST .  00  YOU  NOW  WISH  TC  OVERRIDE  THESE  TINE  SEQUENCES# # 
10530  PRINT  # Input  EITHER  YEs  CR  HU.# 

10540  INPUT  »i 

10550  IF  Wt»#YES#  ON  WlMNO#  THEN  10590 

10560  PRINT  FYOUR  INPL  f  MUST  RE  EITHER  YES  OR  NO.#  . * "  *  ‘ 

105T0  PRINT  #PLE‘»SE  RETYPE  YOUR  ANSwEfi.# 

10580  GOTO  1O5A0  “  ""  " 

10590  IF  wtaFVFSF  THEN  10610 

10600  GOTO  0  9  740  *  ""  - - ■"*'•"  "  - -  *  - -  - - 

10610  «3*»#YtSF 

10630  PRINT  F6ECAGSE  OF  THE  1NTERDEPEN0ENCV  CF  THE  TlaE  SEQUENCES*  YOU*  - 
10630  PRINT  FWJLL  BE  REQUESTeO  TO  CHANGE  ALL  OF  THEN  CUMING  ONE  EDI I.* 

106*0  PRINT 
10650  F4«2 

10660  GOTO  04930  -  "  — -  V  "“  -  - -  - * - 
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106/0  IF  63$<>AY£S6  Th£N  10500 

10680  C«C-30  . -  . . .  •  . . . . - . 

10690  ON  C  GOTO  07150  .  07200  •  07250  •  07310  •  07360 

10700  REM  ASUS  USED  TO  CONTROL  BRANCHING  FOR  INFORMATION  ROUTINES#  ~  - 

10710  If  03  THEN  10760 

■”1072r-OOSU8-T39eO - - - - - — 

10730  GOTO  10960 

10760  IF  06'  THEN  10770  "  - . — . - - - - - - — . . 

10750  60SU8  11320  ' 

10760  GOTO  10960  . — - - - 

10770  IF  09  THEN  10800 

~  H7T60“0OSUt/— TSA'4'0 - — ■■■■  - - - — _ _ 

10790  GOTO  10960 

10800  IF  C»13  THEN  10830  ~  - - - - - - - 

10810  GOSUB  14580  - 

10820  GOTO  10960  ’”7  . . — - - - - - 

10830  IF  C>19  THEN  10860 

1084O-GOSUB-1TTS0  — - — - - - - - - - 

10850  GOTO  10560 

10860  IF  t»22  THEN  10890  - - - - - - - .’ 

10870  G0SU8  14910 

10880  GOTO  10960  *  . . :  *  •**  - -  - 

10890  IF  C>23  THEN  10920 

10900  -tJOSL’8  T52<T0 - — - - - - - ^ 

10910  GOTO  10960 

10920  IF  C>?6  THEN  10950  - - - — . . . . . 

10930  G0SU3  15630 

10940  GOTO  10960’  ...  -  - - - - -  - .»  .  . 

10950  GOSUB  16120 

•  1 0960  RETURN  ~~ - - - - - 

10970  IF  F6»2  THEN  04100 

10980  GOTO  04070  ”  - .  ’  : - - —  •  -- . .  . 

10990  IF  F6<»2  THEN  06100 

11000  PRINT  ^GEOGRAPHIC  FILE#  1  *- - - - : . . . . 

11010  GOTO  06160 

11020  ’SEN’  ASUaTO  SET-UPTFt*tC*r  FICEA - * — - - - - 

11030  DATA  0*. 841. 36000.350*. llOO.ltl. I. 1. 4. 1.00.-9* 9315.2. 0488.0*0.. 26. 100.-26. 
11040  DATA  0.. 682. 36000. 0.1500.1.  .0.1. 2. 1.36.-28* 33.2.27. 0.0.100i.l00.V99 
11050  OATA  0. 1. 59. O.O.Q.l. 0*0# 1 .G.2.S0.-6.29. .408. 8.0.1000. 100.999 
11660  DATA  0. 1 .424. 0« 0 .0. 1*0.0 .1*0. 2*64.06.450. 13f*2 >4. 2. 9. 3.4. 100.999 
11070  DAT*  0.1, 191. 0.0. 0.1. I .0.1 .0.1. 0.>16.e5. 2. 804.0. 0.10. .100. 999 

11080  OATA-t)f;692^0-.0"*8vlTt»OTt«iOtl?OOv*25.-87.r.-354T87798r8s»t6«.-*iOU»999*' - 

11090  DAT*  0.. 4150. 13720. 338.. 1069. 1.0. 1.0.2. 2. 75. 0.0. 0.0.0. 100. >161 

UI00  OATA  0.1. 68. O.O.O.l.O. 9.1.0*1.0.-56.81. 5. 27.0. 0.1000. too. 999 

11110  OAT*  0.1 .38.0.0. 0.1 .0.0.1 .0.1. 00 ••19.274.3.686.0.0.5.. 100.999 

11120  OAT*  ?. .A99.0.0.0.1.1.0.1. 0.1. 43. »29i:422.3. 008. 0.0.20. 100. 999 

11130  DATA  0 « 1. 3 74. 36000. 35 0 «. i i 00 t 1.1.6. 1.0*1.43. *3 1.343. 4. 008. 0.0* 70. 100*999 

11140  OATA  0 1 1". 4 34 0> 0 . 0 1 1 1 O’.TTO’lT.O 0 ♦’*  15  *6  TVZ’.'l  YO*OVTttVTOO » 999  — - - - - —  *■ 

:ilSO  data  0..56.IS6<.5 .350 .*1079.0. 0.1. 0.6. 5. 2* 75 *0.0. 0.0 .0.1 00. >60 
11160  -  TA  0..40. 15968 .4 32 ..11 18.0.0.1 .0.6. 2 .75.0.0. 0.0 .0.1 00.-79 
m 7  DATA  0.. 70. 15645. 353. .1079.0.0.1. 0.6. 2.75. 0.0. 0.0. 0.100.-45 
1118)  DATA  0.. 55. 15827. 350 ..1100 .0.0. I .0.5. 5. 2.75. 0.0.0. 0.0. too. 69 

11199  OAT*  0. • 702* 15903. 350.. 1078. V. 0.1. 0.12.5. 2. 75. 0.0. 0.0. 0.1 00. -40 

11200  DATA  0*. 63*15867. 385.. 10 77.0. 0.1. 0.8*2. 75*0. 0.0. 0.0 .100.-49 
11210  DATA  0. *53. 15209. 390.. 1 130. 0.0. 1.0. 5.2, 75.0.0.0. 0.0. 100.-53 
*1220  OATA  0 ..52. 15968. 350 ..11 12.0. 0.1 .0.4. 5. 2. 75.0.0. 0.0.0* 100. -JOG 
11230  DATA  0*. 91. 1461 3. 350 .. 1 100. 0.0. 1.0«2. 5. 2. 75. 0.0. 0.0. O.1O0. -78 
ii240  OATA  0..81 . 0.0.0* 1. 1 .0. 1 .4 .5* 1 .43.-29.42. 3.008.0. «C. . 1000. 120.999 
11250  OAtfc  0. *66*800 **330*»ll?4«t*l«l*l*4*2*0 *-7*415*. 509*0*0 *1000*100* -37* 

11260  DATA  0. ’.27*800. .359.. 1130.1.0.1.1. 9* 2.5  *-6.‘?94.i40e*  0. 0*1000. 100*7.2 

1 1 2 7ft  OATA  0 . . 78*800*350.* 1100. *1*1.1 . 0.2. 5. 2 *75.0.0.0.0. 1000. 100.- J8< 

11260  OATA  0«. 66. 800*350. 1100*. 1.1. 1.0. 4, 25. 2,75.0.0.0.0.1000. 100. -48. 

11290  DATA  0. . 92.800. 350. .1100*. 1*9* 1.0*1* 5*2*75.0. 0.0. O.luOO. 100. 0* 

11300  HAT  UEAC  C3I27.18) 

11310  RETURN 
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4B 


AVERAGE  CAPACITY  Of  EACH  TANK 


TANK  HEIGHT 


tret -rem-tnfo  scmr-trwTSiE - - 

1330  PRINT 

1340  PRINT  -  - - - 

1350  print  ^Information  on  tank  capacities  ano  sizes  for  various** 

1360  PRINT  ACLASSES  OF  TANK  SUPS  15  GIVEN  IN  THE  TABLE  “BELOWA" - 

1370  PRINT  AIN  GENERAL  EACH  TANKSHlP  CONTAINS  SEVERAL  TANKS  ASA 

1380 -PRINT ■ASFOVNrTfORKACtr-TANKSr  ARE^nLCCC  TfirKTIQUIC— CARGOA - 

1390  PRINT  ATO  98*  CAPACITY (I. 6.  FRACTION  FILLED  a  .98).  QNLYA 

1400  PRINT  ACURING  LOADING’ OR  UNLOADING  MOULD  THE  TANKS  Bt“  PART IALLYp- 

1410  PRINT  AF1LLEO.  GASEOUS  CARGOES  CAN  BE  CONSIDERED  TC  uE  100»A 

1420  PRINT  AFILLEDd.E.-  FRACTION  FILLED  »  i;D0).A  - - - 

1430  PRINT 

T440  PRINr-ATHrTOLL"OMTNGdS~A-T3SCE~orpEPRESENTATTVE”T*CUES» 

1450  PRINT  AFOR  TANK  CAPACITIES  ANU  SIZES. A 

1460  PRINT - - — - - - - 

1470  PRINT  USING  11480 

1480.  JSHIP  SIZE  -  ~ 

1490  PRINT  USING  11S00 

1500  l - avgt 

1510  PRINT  USING  11520 

1520  (THOUSANDS  NO.  OF 
1530  PRINT  USING  11540 
1540  )  OF  TANKS 

1550  PRINT  USING  11560 
1560  -rOEACKETGKr-  “PER- 
1570  PRINT  USING  11580 
1580  *  TONS  SHIP 

1S90  PRINT 

1600  PRINT  USING  11610 
1610  J  1-10  16 

1 620 '  PR  I  NT  US  IN  (TTl  WO 
1630  t  10-20  20 

1640  PRINT  USING  116S0 
1650  I  20-30  25 

1660  PRINT  USING  11670 
1670  «  30-50  10 

1680  PRiNT-usiNG-rmir 
1690  J  50-70  6 

1700  PRINT  USING  11710 
1710  »  70-125  8 

1720  PRINT  USING  U730 
1730  I  125-175  >1 

1740  PRINT  USING" Il'W 
1 750  «  17S-22S  6 

1760  POINT  USING  11770 
1770  I  225-300  6 

1780  PRINT  USING  11790 
1790  I  >  300  8 

1800  PRtNT  ■"  - - - - 

HtO  PRINT  AInGA 
1830  POINT  USING  11830 
1630  «  50-70  5 

1840  PRIM  ’ 

1M50  PRINT 

i R6o  print  acype  in  reaoy  *mn  you  are  Rt ao t  to  answer  ihc  Questions. a 

1870  iNPWt  MS 

1»»0  PRINT  ‘  •  1  “  ■  ‘  . 

1690  P«tM 

1 700  PRIM  -  -  -■ 

1910  PRINT 

1*720  RETURN  '  ”  ’  •  *”“*  .  * 

1930  REP  ASU8  TO  EDIT  ThBEE-CCOEa 
1940  ►?*<)  — 

1050  » a* ACE RL  *tNG“TtfPRGHCNRl)5£7UA 

1960  FC«s  |*|  TC  LtMA»»l  <?ltP  ? 

1970  IF  RtfS  t  *  (  A  J*  •  J  •  J 1  *k  t  |Kc4  vlAOQ 
19R0  Nt»I  I  • 


. .  BRITISH  * 

i  THOUSANDS  ' 

- - NKS  - 

“BRITISH 

“  “NKS  — 

iif 

- CUBIC 

•  GALLONS'  ' 

-  —  METERS 

•  “FEET  “ 

METERS 

no 

420 

32 

9.TS 

214 

770 

41 

12.50 

312 

1200 

45 

13.70 

958 

3600 

50, 

15.25 

IV70 

7500 

56 

17.10 

2570 

9700 

63 

19.20 

4540 

17200 

70 

21.35 

6160 

30900 

73 

22*25 

10200 

38500 

84 

25.60 

13500 

48600 

95 

29.00 

10300 

25000 

99 

30.04 
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11990  11*36 

}2PJ0  A3««K0CIT8TNeET(.PQO*KPT*P»PPPLVCRACKf»OXTOtA«OM*MK#- 

12010  POP  K«i  TO  L£N(A3S)  STEP  3 

12020  IF  SUBSTR(A3S«ft«3) *MS  THEN  12050  -  - 

12030  NEXT  K 

TEOW^CTmEOW - - - - 

12050  I>U«K 

12060  F2»l . --v- -  - - - 

12070  K4»  ( 1*2) S3 

12080  60SU8  12100  .  . . . . . . : _ 

12090  RETURN 

"  1 21 0  0  'REM  'FSUV  TtrSET»UP~CFEH  It At-PHCPERtteSA - - - - 

12110  Z(l«135)*2006 

12120  Z(3.135)*C3(K4.i>  - - - - 

12130  2(3«136)aC3(K4«2) 

12140  2  (l'«137)«2011  . . . . -  . 

12150  Z(3.137)*C3(K4«3) 

12l6rm*T3S)*2022 - — - - - — - 

12170  2(3.1381*1.0 

12180  Z(1.139>*2033  - . —  -  - - 

12190  Z(3.139)*C3(K4,4> 

12200  2(1.1401*1019  •  ~  - - - - - 

12210  Z(3.140)«C1(K4.5) 

12220  2(1.1411*2043  - - 

12230  2(3.141) *C3(K4. 6) 

12240  Z(l.l42)a2046  . . 

12250  2(3,1421.0.0 

12260  Z(l,  1431*5002  -  . . . 

12270  Z(3.143)*C3(K4,7) 

12280  2(3,144)  «C3  (K4  »R1 - — 

12290  7(3.145) «C3 IK4 ,9) 

12300  7(1«146)*S0QS  —  •  . 

12310  Z (3.1461*0 

12320  2(1.1471.5019  •  •  • 

12330  Z(3.l47)aC3(K4«10) 

12340  FOR  1*1  TO  T~ - - - - - - 

12350  11*147*1 

12360’ 12*5029*1  -  ■■  . .  ... 

12370  (3*10*1 

12380  7(1.111*12  . 

12390  Z13.ll )*C3(K4,13) 

12400  NEXT  |  '  •  -  - - - - - - - - - - 

12410  Z(l.|55)*5020 
12420  2(3«tS5l*C3(K4,itU 
12430  RETURN 

12440  BEN  *SU8  FOR  INFO  0  7.6,9* 

12450  PRINT 

*f0W  1RRE0UL*R'  RUPTURES?"  C0N5 IUER’ "THE  nOCE-fCRft*-*-  CtMCLEP--- • 
12470  PRINT  **(T*1  ARE*  EQUAL  TC  THE  RUPTUMt  ARE  A  AND  CONFUTE  THE  OlaHMEUA 
J|*25  «[;;  «UAt  TO  THE  SCUARt  ROOT  OF  1 1.27*  AREA) .»  OIhmETERA 

12500  PRINT  *  IF  YOU  DESIRE  Tu  $I*»UL»tE  A  RAPJO  SPILL  OF  All  oF  ThF  ....... 

jJJJJ  £*2!  -CONTENTS.  USE  THE  FOULING  PARAMETERS)*  * 

12530  IF  Fl*l  THEN  12560 
12540  07t**»«  |  *ET£m«A 
12S50  OOTO  12570 
12960  07t*A»*  3.3  FEtT.A 
12570  PRIM  US1NU  12S80,  C7» 
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”12560  -» - MCttH  ttMEt  ER-ttt  -<*?=Si!KJiE*Ka - 

12590  PRINT  USING  12600 

12600  »  HEIGHT  Or  HOLERS”  CENTERLINE”  ABOVE 'V*TERLlNE'(Cr'*'~0/2 - 

12610  PRINT  USING  12620 

12620  *  "  HErGHT  OF  flOTTON  OF'  KOLE'ABOVE'BCTTOM* 0r_TAWC~Iffr‘*~0 - - 

12630  PRINT  _  _  .  _ 

12650  PRINT  FIS  NOT  NECESSARILY^  A  REALISTIC  SITUATION)  BUT  IT  FILL  SIM-* 

12660  PRINT  FULATE'A  RAPIC  SPILLA0E*YIF-^KE  ’ENTIRE' CARGO- 'IN~THE* T ANK  •  * - 

12670  PRINT 

12660  PRINT  FFOR  REALISTIC  SPILLS  IT  FOULtT  BE  HELPFUL  ”70  NAKE'  r  SKETCH* - 

12600  PRINT  ASHOFING  THE  SHIP,  THE  TANK,  THE  HOLE  POSITION  AND  THE  FATER-A 

t2700-  PRINT  FCTNr.  -A«<T,“Tt>E-F«CLOFtNO-RetATtONSHIP'-tS“USEFUt-ttlrt)ETtR-F - 

12710  PRINT  OPINING  AN  APPROXIMATE  VALUE  FOR  BtA 

12720  PRINT . . — - - - - - - 

12730  PRINT  A  B  ■  C  ♦  S  -  0/2A 

12760  PRINT  AUHERE  S  IS  THE  DRAFT  OF”  THE  SHIPVA " - - - ~ 

12750  PRINT 

1 2760"PR  INT-  A IV  THIS~REntn3NSHrP»'''C”VrLC_HTVE~A— RCOATIVE~VACUE— IF"T«EA - 

12770  PRINT  ACENTERL1NE  OF  THE  HOLE  IS  BELOF  THE  AATERLINE.  AS  AN  EAAHPLEA 
12760  PRINT  ACONSIOER  THE  HOLE' DIAMETER"  fU>  TO  BE'  2HETERS”  ANOtTHE'SHIPfSa 
12790  PRINT  AORAFT  TO  BE  10  METERS.  IF  THE  HCLE+S  CENTERLINE  IS  AT  THCA 
12600  PRINT  AFATERLINE  <C»0>  T  THEN  B  »"10”  -  2/2  f-VHEIEBSTTHE  DRAFTSA  — 
12610  PRINT  AFOR  VARIOUS  SIZES  OF  SHIPS  ARE  GIVEN  IN  THE  FOLLOFlNGA 

12620"PRINTr  AT  ABLET* - 

12630  PRINT 

12860  PRINT -  "  - - - -  ' 

12650  PRINT 

12660  PRINT  A  TANK  SHIP  SIZE  - SHIP  DRAFT A 

12670  PRINT  A  (THOUSANOS  OF* 


12660  PRINT  A  TANK  SHIP  SIZE 

12670  PRINT  A  (THOUSANOS  OF* 

12680 ’IF  FI »?'TPEN  "13030 - 

12690  PRINT  «  OEAC  WEIGHT  TUNS) 

12900  PRINT  A 
12910  PRINT 

12920  PRINT  A  .  ...  -l*io 

12930  PRINT  A  10-20 

12960  "PRINT'A - 20*10 - 

12950  PRINT  A  30-50 

12969  PRINT  A  50- TO  . 

129T0  PRINT  A  70-125 

12960  PRINT  A  125-175 

12990  PRINT  *  175-225 

13000  “PRINT*  A"  . — 225*100' - 

13010  PRINT  A  >  300 

13020  GOTO  13150 

13030  PRINT  A  DC AC  »E!CMT  TONS) 

13060  PRINT  A  ——————— 

13050  PRINT 

13060  PR  INT"*'  - - — - f-TO - ~*“ 

13010  PRINT  A  20-30 

13060  PRINT  A  30-50 

13090  PRINT  *  5U-T0 

13100  PRIM  A  70-125 

13110  PRINT  A  125-IT5 

13120” PRINT  A' - - - 175*225 - 

13130  PRINT  A  225-300 

13160  PRINT  A  »  300 


(FtETIA 


35a 

66. SA 
55.5A  '•* 

60* 

- fcOTTA — - - 

77.5A 

(PE  TENS) A 


13060  PRINT"*'  - - — - r-ro - - - - 6.-TA- - 

13010  PRINT  A  20-30  10A 

13060  PRINT  A  30-50  '  '  “  *  lO.tA 

13090  PRINT  *  5U-T0  12.5A 

13100  PRINT  A  70-125  16. 2A 

13110  PRINT  A  I25-IT5  |7A 

13120” PRINT  A” - - - 175*225 - - - llTiSF — - 

13130  PRINT  A  225-300  21A 

13160  PRINT  A  >300  23.6A 

13150  PRINT  A  TYPE  in  READY  WHEN  YOU  ARE  RtAOY  TO  INPUT  VCUM  ANSWERS.* 
13160  INPUT  Ft 
13170  RETURN 
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13100  Ktn  *iru  suu  u  ie*i/«iatM¥* 

13190  PRINT 

13200  PRINT  HT0-»SSrT5'r-I»rTHE  S 
13210  PRINT  AFOR  YOUR  SPILL  SIMULAT ION*  REPRESENTATIVE  VALUES  FOR  ThEA 

13220  PRINT  AU.SV'PORTS  OF“INTEREST  ARE" PRESENTECT "IFTTRE” TABLE"  BECOV* A - 

13230  PRINT  AONLY  THE  PREVAILING  WIND  DIRECTION  IS  SHOWN.  HOWEVER*  INA 
13240"  PR  INT  " AGENER-At  Att"  VfTNO'tTRECT  tONS^ARr  POSSIDtEV-THt-WlNO-OWiCT  IONA — 
13250  PRINT  AIn  oEGREES  IS  MEASURED  AS  THE  ANGLE  BETWEEN  NORTH  AND  THE  A 

13260  PRINT  ACTRECTrON  'THE~~B~INO~IS  BCCMtN'GTCIfAPPSI'  TiC.'TrSOPTMWESTA - 

13270  PRINT  AWINO  IS  CONSIDERED  TO  BE  45  DEGREES CNEASUREC  CLOCKWISEA 
13280  PRINT  AFROM  NORTH).  TH'E’IEMPERAYURES  'ARE'GTVEN- IN'IEHMS"  OF" THE  A~* 

13290  PRINT  AAVERAGE  OF  THE  MlNIMUMS  (OCCURRING,  AT  NIGHT)  AND  ThEA 

DURING  1  THE”  JAYT.  A - 


13310  PRINT 

13320  ■  IF  Fi*l  THEN  13490  "  -  - ‘ - - - - - ”  ' 

13330  PRINT 

13340  PRINT  USING  13350  '  "  "  - - - - - 

13350  i  SUMMER  WINTER 

"  I336TTPRTN-T  US  TNG”  133T0 - - - 

13370  t  MEAN  NINO  PREVAILING  AVERAGE  MEAN  WIND  PREVAILING  AVERAGE 

13380  PRINT  USING  13390  - - - - - - - -  "  . . 

13390  t  SPEED  WIND  TEMP(C)  SPEED  WlNO  TEMP(C) 

13400  PRINT  USING  13410  - -  ~  - - - -  -  - - - ~  -  • 

13410  <  (M/SEC)  DIRECTION  MIN  MAX  (M/SEC)  DIRECTION  MIN  MAX 

"13420  PRINT  USINirT343T) - - - ; - 

13430  t  l.A.  3.44  67. S  16.7  23.7  2.9S  VO  7.4  17.5 

13440  PRINT  USING  13450  . . .  . . . - . 

13450  <  NEW  OHL.  2. 86  45  22.9  32.4  4.24  180  6.4  16.8 

13460  PRINT  USING  13470  .  "  "  "  . .  "  . . 

13470  (  N.Y.C.  4.78  0  19.3  28.4  6.0  135  -4.  3.3 

13480  GOTO  13670 - - 

13*90  PRINT  USING  13500 

13500  t  SUMMER  ’  "  '  - -  '  -  — . -WINTER .  '  ' 

13510  PRINT  USING  13520 

13520  1  MEAN  WIND  PREVAILING  AVERAGE  MEAN  wIMT  PREVAILING  AVERAGE 


13530  PRINT  USING  13540 

13540  t  *  "  SPEED - WIND - TEMP-(P) - SPEED - wINU - TEMPtf) 

13550  PRINT  USING  13S60 

13560  I  (FT/SEC)  (DIRECTION  MIN  RAX  '  '(FT/SECT  DIRECTION-  MIN  RAX 

135T0  PRINT  USING  13580 

13580  l  L.A.  11.29  6T.5  ’  62.1  74.B - 9*68  “'" . "  90  1  45*4  63.5 

13590  PRINT  USING  13600 

T3600  7  NC#  0nC5“  Vi'38“ - -«3 - - 7T.T  SW - 17.93 - IDO - 43iSG2.3' 

13610  PRINT  USING  13620 

13620  I  N.Y.C.  15.69  0  66VV  83.2  ‘  *19.89  '  -  135  *  24.8  30.0 

13630  PRINT 
13640  P.TINT 


13650  PRINT  AVOID  ARE  NOT  BOUND  TO  THESE  TABLES*  HOWEVER*  Th£  UlM  rIlL  NOTA 
13660  PRINT  AACCEPT  Al*  TfMP£»ITUMtS  OUTSIDE  Of*  THr‘«ANCe--i40‘ TO  *49  OEOMEESA 
I36T0  PRINT  (CELSIUS  (-40  TO  120  FAhRENHE I T) , A 
13680  PMtNT 


I  3690  PRINT 
13700  INPUT 
M7I«  PRIM 
I3T20  PRINT 
I3T30  PRINT 
13740  PRINT 
(3750  PRINT 
13760  PRINT 
13T70  PRINT 
13780  PRINT 
13790  PRINT 


(CCNTIRLE*  (TYPE  16  YES  WHEN  MEACYIA 
Of 


(FOR  ATHUSPt*E«lC  STABILITY*  YOU  RUST  SPECIFY  THE  PASUUlLL-A 
(GIFFCRC  ATMOSHEhIC  STABILITY  CLASS.  ONLY  THREt  CLASSES* 
A»a£  ACCEPTEC  IN  The  VRI  B*  C*  AnO  t*  THESE  ARt  DEFINED* 
(GFLOW.A  •  ’•  •'  ——  - -  '  * - -  - - -  •  * 
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Si' 


$ 


'~1 - rrr 


13800  PRINT 
13810  PRINT 
13820  PRINT- 
13830  PRINT 
13840  PRINT 
13850  PRINT 
13860  PRINT 
13870  PRINT 
13870  PRINT 
13880  PRINT 
•  1 389  (T -PRINT-* 
13900  PRINT  * 
13910  PRINT 
13920  PRINT 


8  REPRESENTS  UNSTABLE  CONDITIONS  WHICH  OCCUR  ONLY  ON' SUNNY* 
OATS  WITH  WINDS  LESS  THEN  4  PETERS  PER  SEC0N0U3  PT  PER* 
SECOND#)* . . . . . . . 


0  REPRESENTS  NEUTRAL  CONDITIONS  WHICH  OCCUR  OAY  OH  NIGHT* 
CURING  HEAVY  OVERCAST  PERIODS*  OR  DURING  LIGHT  OVERCAST* 
PERIODS  WHEN  VINO  SPEEDS  ARE  4  PETERS'  PER  SECOND C 13  FT* 
PER  SECOND)  OR  GREATER.* 

■  PER  SECOND)  OH  GREATER.*  "  - - - 


f  -REPRESENTS"  T'tGHCY" ! 

AT  NIGHT  DURING  LIGHT  QR  NO  OVERCAST  PERICOS  WITH  WINDS* 
*  LESS  THAN  4  HETERS  PER -SECOND T13  FT  PER  'SECONO)?* - 


13930  PRINT  *TYPE  IN  REAOY  WHEN  YOU  ARE  READY  TO~ ANSWER  THE  QUESTIONS.* 
13940  INPUT  WS  / 


1 3950  "RETURN 


13960  HEP  VINFO  SUB  FOR  QUESTIONS  1-3* 

13970  PRINT  *  THE  FOLLOWING  TABLE  LISTS  ThE  CHEHICALS'THArCAN  BE* . 

13980  PRINT  ASIPULATfcD  BY  THE  VP  THROUGH  OPERATION  OF  THE  UIP.  THE* 

13990  PRINT  *THREE-LETTER  CHEMICAL 'CODE  ANOTHE  PRINCIPAL  TYPt  OF  PA2AM0* 
14000  PRINT  *IS  GIVEN  FQR  EACH  CHEPICAL.  ALSO  SHOWN  ARE  THE  BOILING* 

14010  PRINT  *P0INTS‘1N  DEOREeS-fAHReNHElrONCER-STANOAPC-AtPOSPMERte* - 

14020  PRINT  *PRES5UR£  (1  ATMOSPHERE)  ANO  THE  VAPOR  PRESSLHfeS  IN  ATMOS-* 
14030  PRINT  *PHERES  AT  68  OEGREES  FAHRENHEIT".*  . . . . 


14040  PRINT 


14050  PRIM  * 

.  .  «  . 

. 

'BOILING  POINT 

VAPOR  PRESS.* 

14060  PRINT  * 

CHEMICAL 

CODE 

•H* 

AT  1  ATP. 

AT  68  DEG.  F» 

14070  ’P«INT  -r 

■'’wMNNWii'  ' 

— !TM'a'iomn^8  $'  ’ 

14080  PRINT  * 

ACETALDEHYDE 

AAO 

F 

70 

1.* 

14090  PRINT  * 

acrolein 

ARL  ‘ 

*  T.F 

- 126 - 

- .3*"  *•  " 

14100  PRINT  * 

acrylonitrile 

ACN 

T 

171 

.1* 

14110  PRINT  * 

APHONIA!  ANN  VO)’  “  ” 

AHA 

"T  - 

. «-2r . 

- 9X5*  '  •'  ’ 

14*20  PRINT  * 

BUTANE 

eur 

t 

31 

2.* 

141 30  "PRINT  ■*■ 

BUTYLENE 

— BIN 

f 

. 21  1 

i  9^# 

14140  PRINT  * 

CARBON  TETflA. 

CUT 

T 

168 

.1* 

14J50  PRINT  * 

"CHLORINE  . 

“CL*"  * 

T - -  -29  —  ” 

-  -6.*  •  - 

14160  PRINT  • 

OIPETHYLAPINE 

CPA 

F 

45 

2.5* 

I4JT0  PRINT  * 

ethyl  ether 

CET 

f  ■ 

•  ■  '  94" . 

-  .58* 

14180  PRINT  * 

pyorogen  chloride 

HOC 

T 

-no 

4l»* 

14190  —MINT  *  ^r»TUWOVCrrvrANTV  E 

— NON — “ 

T 

14200  PRINT  • 

hydrogen  fluoride 

HF* 

T 

1S2 

l«^ 

V  14810  PRINT  < 

hydrogen  sulfice 

HOS  ■’ 

r.F- 

-  ~tr . 

—  -  lo.B*-  '  - 

?  14220  PRINT  * 

UOUIF.  NATL.  GAS 

LNG 

f 

•258 

HIGH* 

14230  PRINT  * 

LIOUIF.  PET.  OAS 

LPO 

r 

-  --40  "  "• 

HIGH*  ' 

S.  14240  PRINT  * 

PETHfL  BRCMtOe 

NTS 

T 

40 

1.8* 

14250  PRINT  r 

•  methyl  cmccrioe  — 

—PTC*" 

— f - 

- -Tl“  — 

- 7t* - — 

I  142N0  PRINT  * 

oct*ne 

GIN 

F 

255 

mm  $ 

.  1*270  PRINT  * 

PENTANE 

PTA 

F 

•  ~  97  •  ’ 

.6*  - 

v  14280  PRINT  • 

phosgene 

PHG 

T 

46 

.7* 

1*290  PRIM  * 

propane 

PRP 

t 

-•44 

i*.t* 

i  14 J00  PRINT  * 

PROPYLENE 

PPL 

F 

-54 

lu.3* 

,  HJlOPRTNr* 

•  "■OROPYLENr'CTICE"-'* 

-••pox  — 

— r,-p 

j  14320  PRINT  < 

SULFUR  ClGAlUC 

5FO 

T 

-14 

3.3* 

1*330  PRINT  » 

TOLUENE 

TOL 

t.f 

-  “  -231 

.04* 

(  14340  PRINT  * 

VINYL  CHLORIDE 

VCP 

F 

7 

3.4* 

!  14350  PRINT 

"  - 

[  »4J00  PRINT  * 

••PRINCIPAL  HA2ARU  COOES 

ARE  — 

•T»TO*IC.  F-FLAPPABLt# 

t  143T0  PRINT- 

.  >.  :  .«  ••  ■"“*  •  • 

**■*■''■*  y'***  - 

.fc 

14380  PRINT  *  IF  THE  CHEMICAL  YOU  WISH  SIMULATED  IS  NOT  CONTAINED  IN* 
14390  PRINT  *Th€  *BCvE  LIST.  C*LL  Tk£  VP  PRO.ECT  OFFICER  FUN  ASSISTANCE.* 
14400  PRINT 
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masts <tr  amwygwiyfir  as 


1*410  PRINT  x  ALL  THE  CHEMICALS  SHOWN  ARE  THANSPORTEC  AS  UGUIOii# 

1**20  PRINT  ^CHEMICALS  WITH  BOILING  POINTS  GREATER  THEN  100  DEGREES  ARE* 
■TWJOTR  IKTAGENERACLY'TffANSPOR  I  EO~ST~AWBI£NT  TEMPERATURE  5  AND  ’PRESSURES’?* - 

1***0  print  achemicals  with  boiling  points  less  then  ambient  are  generally* 

1**50  PRINT  ^TRANSPORTED  IN  ONE  OF  TWO  COHO IT IONSI'REFRtG£NATED~OR  PRESS-*" . 

1**60  PRINT  ALHI2E0.  WHEN  REFRIGERATED.  ThEIR  TEMPERATURES  WILL  BE  SLIGHTLY# 

1**70  PRINT  ALESS  THAN  THEIR  “BCILINff  POINTS  'ANO''THEtR-PRESSURES“SL'tGNTtV#‘ - - 

1**80  PRINT  AGREATER  THAN  AMblEN?  (I.E.  APPROX.  ONE  ATMOSPHERE).  wHfcN# 

1**90  PRINT  APRESSURIZEO.  THE  CHEMICALS  WILL  BE  TRANSPORTED  AT  AMBIENT* 

1*500  PRINT  ATEHPgRATURES  ANu  AT  PRESSURES  EQUAL  TO  THEIR  VAPOR  PRESSURE.# _ 

1*520  PRINT  *ATION  RATHER  THAN  PRESSLRI2ATI0N.  IT  SHOULD  BE  NOTED  THAT# 

1*530  PRIN’-  ATHERE  ARE'  EXCEPTIONS  T0-THE"'X80VE~kGENEJTACt7ATI0NS-ANQ  SOME#  - 

1*5*0  PRINT  ACHEMICALS  ARE  TRANSPORTED  BOTH  REFRIGERATED  AND  PRESSURI2E0.# 

‘1*550  PRINT - 

1*560' PRINT 

1*570  RETURN  •  - - - - - - - - - 

1*580  PRINT  A  SPILLS  IN  CHANNELS  OF  THE  ORDER  OF  I.OQQ  FEET  IN  wIOTHA 
1*590  PRINT  AOR  GREATER  CAN  BE  CONSIDERED  OPEN-WATER  SPILLS  UNLESS  TIDAL# 

1*600  PRINT  AOR  RIVEh  FLOW  IS  TO  BE  SIMULATED.  FOR  MOST  SPILL  PROBLEMS.* 

I*610  "PRTNT~ FAN'  OPEN=TAtER~SPTlX~WILr'PROyiOE~TrMgHE~COHSEHmtVC-tSrtH«» - 

1*620  PRINT  #ATION  (COMPUTES  GREATER  DAMAGE)  THAN  A  CHANNEL  OR  RIVER  SIN-# 

1*630  PRINT  VOCATION. A"  - - - -  - 

1*6*0  PRINT 

1*650  PRINT  A  FOR  LOS  ‘ANGELES  HARBOR.  THE" 'MOST  SIGNIFICANT  CHANNEL*  "  •  * 
1*660  PRINT  ACOMPLEX  IS  THE  MAIN  CHANNEL  WHICH  LEADS  INTO  THE  RIVER  A 

1*670  PRINT  AH«»8CflT^Hl-S-CMXNNEt'~tS~OF--THe-  CMDeM-t)F--80<rFtte7-Trt1)CT-»7*- - - 

1*680  PRINT  AFEET  DEEP.  AND  HAS  MODERATELY  ROUGH  BANKS.  MEAN  MATER  TEM-A 
1*690  PRINT  APERATUHES  IN  LOS  ANGELES  HARBOR  VARY  FROM-*6~OEe.  F.  TO  06# 

1*700  PRINT  AOEG.  F.  (SEE  N.O.A.A.  CHART  5167*9).# 

1*710  PRINT  •  -  - - - - - - - - -  - 

1*720  PRINT  #  FOR  NEW  ORLEANS.  THE  PRINCIPAL  CHANNEL  IS  THE  MISSISSIPPI# 

1*730 -PffINT-*RTVEWy-WHtCH~IS-0F-YHE-6R0ER  OF  2.003  P£&T-TtOCr-60-PEcT-0€e»»-* - 

1*7*0  PRINT  *w ITH  MCUEMATELY  ROUGH  BANKS.  MEAN  WATER  TEMPERATURES  VxRY* 

1*750  PRINT  #FRCM  6!  TO  65  OEG.  F.'  RIVER  VELOCITIES  RANGE  BETWEEN  ATT- AMD# 

1*760  PRINT  A6.*  FEET  PER  SECOND  (SEE  N.O.A.A.  CHART  ?U3t»9).A 

1*770  PRINT  ’  . .  -•  .  . . -  — . . — - .  - 

1*780  PRINT  A  IN  NEW  YORK  HARBOR.  THERE  ARE  MANY  CHANNELS  AND  RIVEhS* 

lAToo-'PwiNT'AUsttrrofl  '8uck—5kiphent~,cf  cmewicacs  csee^hcjmvat^chamt# - 

1*600  PRINT  *512337) .  ALTHOUGH  RIVkR  PLOW  IS  NOT  SIGNIFICANT  IN  THE  NEW# 

1*810  PRINT  AYORK  CITY  AREA*  TIDAL  FLOWS  CAM  BE  AS  HIGH  AS  6~ FEET  per  sec-* 

1*820  PRINT  AONO.  MEAN  WATER  TEMPERATURES  RANGE  FORM  35  TO  72  DEO*  F»  UE-# 

1*830  PRINT  APfNOJNG  UPON  THE  TIME  OF  “YEAR.#"  . . .  -  ,  .  *  ■ 

1*8*0  PRINT 

1*860  PRINT  ATHE  ulM  WILL  NOT  ACCEPT  mATEM  TEMPERATURES  OUTSIDE  OF  THEA 
1*870  PRINT  aRANGE  -*  TO  .*9  DEOREtS  CELSIUS  (25  TO  120  FAHRENHEIT) .*‘ 

1*880  PRINT 
14X90  PRINT 
1*900  RETURN 

1*010  REM  AtNFO  SUB  FOR  QUESTIONS  20”  TO  »» - - * - - «•«  .  . 

1*920  PRINT  *  Trt  SPILL  LATITUDES  MUST  BE  GIVEN  IN  CkuhEES*  MINUTES* 

1*930  PRINT  »ANC  SECONDS  NORTH  OF  THE  EQUATOR.  AND  THE  SPILL  LONGITUDE  IK* 

1*9*0  PRINT  >CEG«EES.  MlNLTfcS  ANU  SECONDS  ■£$ T  OF  GREENWICH. * 

1*950  PRINT 

1*960  PRINT  •  A  HCFCRENCt  LOCATION  FQh  LCS  ANGELES  HAMsOR  IS  THt  A 

1*970  PRINT  AEKTRANCf  TO‘TPE  MAIN  CHANNEL'  “AT—* — - - - — - *  — 

1*980  PRINT  *  LATITUDE  33  OEU.  *3  MIN.  00  SEC* 

1*990  PRINT  •  LCNGUUCE  116  OEU.  16  MIN.  00  SEC.* 

15000  PRIM 

15010  PRINT  »E»Ch  m(KUTE  CF  LATITUUE  IS  EUUIvAlENT  TO  ONE  NAUTICAL  MlLtA 
15020  PRINT  * (6080  FfcETl .  ANu  »T  T"<IS  SITE  EACH  MINUft  OF  LONUituOS  IS* 

15030  PRINT  xECUlVALtNt  TC  S/6  OF  A  NAUTICAL  MILE'  (5070  H»EtT)  ‘ (SEE  *.0*A/A«r  - 
150*0  PM (NT  *Ch*RT  5187*9)# 

15050  PRINT 
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15060  PRINT  *  A  HEFERENCt  LOCATION  FOR  NEW  ORLEANS  IS  THE  INTERSECTION* 

15670  PRINT '#CF  TH* "HARVEY  CANAL  NO.  I'AND  THE"MISSlSSlPPl"MiYER«  AT— A - 

15060  PRINT  *  LATITUDE  29  DEO.  54  HlN.  44  SEC.* _ 

15100  PRINT  *AT  THIS  SITE.  EACH  MINUTE  OF  LONGITUDE  IS  ECU1VALENT  TU« 

15110  PRINT  #5280  FEET  (SEE  N.C.A.A.  CHARTS  511369' 0R"878-SC)T# - 


15120  PRINT 

15130  PRINT'  #  A  REFERENCE  LOCATION  FOR  NEW  YORKHAHUCR  IS 'NEAR# - 

15140  PRINT  #TmE  MOUTH  OF  THE  ARTHUR  KILL  AT  PERTH  AMBOY.  AT—# 

15150  PRINT  *  LATITUDE  40  OEG.  30  HlN.  40  SEC.# 

15160  PRINT  «  LONGITUCE  74  OEG.  IS  HIN.  35  SEC.* 

15170  PRINT  #AT  THIS  SITE.  A  MINUTE  OF  LONGITUDE  IS  EQUAL  TO  3/4  OF  A# 

15180  PRINT  WNAUT1CAL  MILE  (OR.  4. 560  FEET)  (SEE  N.O.A.A.  CHART  >12337).# 

15190'  RETURN  '  . .  . .  . 

15200  PRINT  #  THE  VM  SIMULATES  TwQ  BASIC  TYPES  OF  HA2AH0QUS  CHEMICALS— * 

'1S210~P»1NT  wTCXtC-ANO"  FtAMMABLt.-FOR  'TO*IC"£HEMl'CAC~SFttLSTr^H&“VM^lM«# - 

15220  PRINT  AULATES  THE  DEVELOPMENT  OF  THE  SPILL*  THE  VAPOhUATION  UF  THE# 

15230  PRINT  *CHEM!CAL,  THE  FORMATION  OF  A  TOXIC  CLOUD  "OR  PLUME. "THE# - 

15240  PRINT  AHCVEmENT  AND  DISPERSION  OF  THE  CLOUD.  AND  THE  ACUTE  TOMC# 

15250  PRINT  ACAHAGE  (DEATHS  ANC  INJURIES)  OCCURRING  TO  PEOPLE  RESIDING* 

15260  PRINT  AIN  THE  PATH  OF  THE  CLOUC.# 

JS270  PRINT - - ’ - - - 

15280  PRINT  *  FOR  FLAMNAoLE  CHEMICALS.  THE  VM  COMPUTES  FIRE  DAMAGE  TC# 
15290  PRINT  #PEGPl E  AND  PROPERTY  RESULTING  FROM  THREE  TYPES  OF  F IRE  MA2AR0S-# 
15300  PRINT  *POOL  BURNING.  FIREBALL  AND  FLASH  FIRE.  POOL  BURNING  OCCURS# 

15310  PRINT  WHEN  AN  IMMISCIBLE  FLAMMABLE  LtCUlD"  iS'SPlLLtD  ANO  CATCHES  ON#  " 
15320  PRINT  AFIRE  AT  THE  SPILL  SITE  WHILE  IT  IS  STILL  IN  THE  FORM  OF  A* 

“15330 '  PPI  NTT*  FLU  STTNG“PCOL~OF-riCim  OVA — - - - 

15340  PRINT 

15350  PRINT  *  A  FIREBALL  OCCURS  WHEN  A  PRESSURIZED  GAS  OR  HIGHLY#  . 

15160  PRINT  AVOLATlLt  LlOUlO  IS  IGNITED  *5  IT  ESCAPES.  BURSTING  THE  TANK* 

15370  PRINT  *AND  GENERATING  A  HIGHLY  COMBUSTIBLE  MIXTURE  OF  HATERfAL  ANO* 

15360  PRINT  #*IR  ahlCH  0URN5  VERY  RAPIOLY  ANC  FORMS  A  FIREWALL.  TmE  FIRE-# 

15390'PRINT  *B*LL"H*ZA«C'TS'CO»MDN  r0K~SPlL'C~INCt0CKT5~TWOLYTNa-PRUPANEV* - 

15400  PRINT 

15410  PRINT  *  FLASH  FIRE  OCtURS  FOR  VOLATILE  CHEMICAL  SPILLS  WHICH  DC  NOT# 
15420  PRINT  #C»TCH  FIRE  AT  ThC  SPILL  SITE  (OLE  TO  LACK  OF  AN  IGNITION# 

15430  PRINT  *SOURCE)  BUT  FORM  FLAMMABLE  VAP0S  CLOUDS  WHICH  ARE  BLOWN  OOWN-#  ‘ 
IS440  PRINT  #■ INO  AND  ARC  IGNITED  AT  SOME  DISTANCE  FROM  THE  SPILL  SITE.  THE# 

15*50'  PRINT  »Fl*SF  Ttcr'H*ZAStT"CAW~8t  rHF'M0ST~5ERT0ire'8ECAUSt''IT" INVOLVES# - 

15460  PRINT  #ThE  TRANSPORT  OF  THE  HAZARDOUS  MATERIAL  FROM  THE  SPILL  SITE# 

15*10  PRINT  *TC  DOWNWIND  AREAS  THAT  CAN  BE  ML CH  MORE  POPtLATEO  THAN  THE  # 

154H0  PRIM  *SPILL  SITE,  IF.  AT  TMt  TINE  OF  IGNITION.  ALL  OF  THE  SMLLEC# 

15*90  PRINT  *LIQUI0  HAS  NOT  BEEN  VAPORIZED,  THEN  POOL  BURNING  OCCURS  IN  * 

15500  PRINT  *ACCIT10N  TO  FLASH  FIRE.  ALSO.  THE  POSSIBILITY  EXISTS  T*AT» 

15510  PMINT  iUNCER  CCRTAtN  “CONDITIONS  "TMF'HICHLY  "COMBUST*  BCE  "VAPORtLOUO*’  '  “  * 
15520  PRINT  #C»N  EXPLODE  MAThER  THAN  BURN.  HENCE.  THE  VP  SIMULATES  The  G*«# 
15530  PRINT  *PLOSICN  OF  THE  *AP0<»  CLCUO  IN  ACOITtON  TO  FLASH  F 1«E  ANO  LOM»* 
195«n  PRIM  tPt.TES  Ti-t  EXPLOSION  DAMAGE  TO  PEOPLE  ANO  PBCPtfiTY  AS  -ELL  *SA 

l '3550  PRINT  *Cl*SH  FIRE  DAMAGE.  THE  USER  tS  CAUTIONED  THAT  IN  ALL  C*$£S# 

15540  PfltNT  AlNVOLVtNC  uhCONf  INED  FLAMMABLE  VAPOR  CLOuOS.  FLASH  FIRt  IS  MoChn 
15570  PRINT  #PCRG  LIKELY  TO  CCCU»  TK*V EXPLOSION.  mOWEVETSV  EXPLOSION"  IS  IN**- 
155*0  PRIM  »ClU0EC  »S  a  WOHST-CASt  CCNSlUERif ION.  EVEN  ThGUGh  IT  IS  nECOG*# 
15590  PRINT  #M2EO  TO  81  A  REMCTE  POSSIBILITY  IN  MOST  SPILL  SITUATIONS.# 

15600  PRINT 
1S610  PPtM 
15620  RETURN 
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~15S30  "PRINT-# - Tt=rv«  mmTJNEO" TO  '  SIMULATE- T^e  eONSTOJENCtS-W* - - 

15640  PRINT  #HA2A«-\,US  MATERIAL  SPILLS  AT  SPECIHEO  PORTS*  HARBORS*  OR* 

15650  PRINT  #OTH£R  MARINE  LOCATIONS.  TO  CO  TH't  THE  VSER  MUST  SPECIFY  THE* - 

15660  PRINT  FLCCATICN  ANO  CHARACTERISTICS  OF  THE  VULNERABLE  RESOURCES  IN* 

15670  PRINT  #THE  VIUMTY  Or  THE  SPILL  SITE.'THiS  tS  ACCOMPLISHED  07#  . . . 

15680  PRINT  APEANS  OF  A  -JEOGhAPHICAL/OEMOGRAFHICAL  FILE  kHICH  DIVIDES  THE* 

- 15690- PR  TNT  FARE*  ~OF— INTEREST  TWTO  CELTS-  ANtrOtYtStHt  iCCRTlONr  NUM8EH-CF* - 

15700  PRINT  tPEOPLE*  ANC  NUMBER  ANU  VALUE  OF  BUlLOINGS  FCR  EACH  CELL.* 

15710  PRINT  FTPERE  ARE  FIVE  GECGRAPMlCAL/OEMCGRAPHlCAL  FILES "PRESENTLY# . . 

15720  PRINT  FExlSTING  IN  THE  UlM/VH  SYSTEM*  THESE  ARE— F 

15730  PRINT  - - - - - - - - — - - - 

157*0  PRINT  F  FILE  NUMEER  A 

"15750'  PR  INT“*?ORT - NUMBER - OF-'Ctctt - *-*KtA“COVtRtOF - - — - 

15760  PRINT  **••*  —  -  . “  --—————A 

15770  PRINT  FL'.A.  ~  '1611  362  *"  PALO  VERDE  TO"HUNT*N  BCHV  ALONG  HAN80MF 

15780  PRINT  #N.O.  2211  336  FROM  METAIRIE  TU  AN Ad IF 

15700  PRINT  #N.Y. . 3611  36* - RAOt*L  OISTV'CF- T’Mti  Af'.HOr  PERTH  AMBOY* 

15800  PRINT  FN.V.  3612  366  CCNEV  ISL.  ANC  SOUTH  BROOKLYN* 

15810  PRINT 
1S820  PRINT 

15830  PRINT  *  . APPEN0IX-C  OF"  THE"  L tHUSER*SGUlOE'PHtStNTS-MAPS  OF  THESE*--  * 

158*0  PRINT  FFILE5  SHOVING  THE  PRECISE  AREA  COVERED  BY  THE  FILE  ANO  »HERE* 

15850  PRINT  FEACN  CELL  IS' LOCATED.  SY "PtOTTINO  "THE  SPILL 'LOCATION  ANO  THE#  ' 

15860  PRINT  FElNO  DIRECT ION*  THE  USER  CAN  DETERMINE  VMOF  GEOGRAPHICAL  FILE* 

15870'  PRINT  FlS“6PPt  rC*dtr.--rF~THE'FPEr  THl  'CSEK-rS“IN'TEHWTttr'tW  Hi' NOT*' - — 

15880  PRINT  FCOVEPCf:  6Y  AN  EXISTING  FILE.  THE  USER  SHOULD  CALL  THE  YMF 

15890  PRINT  FPflDjECT  CFFICER  FOR’ ASSISTANCE.*  - - ;  -  ~ 

15900  “HINT 

15910  PRINT  #  ASSOCIATED  BITH  EACH  OEOGRAPmICal/OEMOLHAPHICAL  FILE  IS  A# 

15920  PRINT  FSECONSiHY  F IRE  F lLE»  THESE  ARE  LISTINGS  OF  CELLS  MHlCH  CONTAIN* 

1 59J0  “PR  lNT~*5TOR*Gt~TFNK5~OR'~%*RtHH;SE8~OF~Pt*MMAtitt— M#T6HlAt5~BHlLTtF~lF'F — - - 

159*0  PRINT  FlGNITCC  BY  THE  PRIMARY  FIRE  HAJARO*  BILL  CAUSE  FIRE  DAMAGE  TO* 

15950  PRINT  *THE  VULNERABLE  RESOURCES  IN  THE  VICINITY  OF  THE  SECONUAMr FIRE* 

15960  PRINT  #SCURCE.  THE  USER  HAS  TmE  OPTION  OF  USING  THIS  FILE  OR  ftOT.* 

15970  'PRINT  '  -  -  - -  '  . -  - . .  . . 

15960  PHtNT 


15990 
16000 
1*010 
16020 
16030 
160*0 
16050 
16060 
16070 
16080 
16090 
1*100 
16110 
1*120 
16130 
1*1*0 
161*0 
1*1*0 
16170 
161*0 
16190 
1 6700 
I6?l« 
16220 
16270 
t*?*0 
16280 
16250 
l6?70 
1628* 
1629* 
1*300 


"PRINT*  V '"  * - TFiruSFff' ^'MYTST-SPECIFY-THr'  P**CTtOtr  0F"Y?«tr-P<C8tE-SHet  TfePEU# - 

PRINT  #FHOH  EITHER  TOAlC  e«  THERMAL  EFFECTS.  IN  TK  CASE  OF  TUaIC# 

PRINT  FQAMAGC •  THE  SHELTERED  PEOPLE  ARE  ASSUMED  TC  BE  INOOORS  ANO  THERE-* 
PRINT  *F0PE  SLBJECTF.C  TO  LESS  TOKtC  CONCENTRATION  Than  PEOPLE  OUTDOORS.* 
PRINT  #FQR  FIRE  DAMAGE.  THE  SHELTERED  PEOPLt.ARE  ASSUMED  TO  Ok  SRtELOEO* 
PRINT  *f«OM  THERMAL  RaoIATION  dY  mALLS  OR  BY  5TRUCTU*SS  AND  00  NOT  RE*» 
PRlNT-»CFTVr“lrjURlCVrttnt^'-0F-9^7i7t0N'i'-*-^aTTStl»V8«Vt”*3f*E3j'g-F«T»r  '  ■ ' 

PRINT  #FftACTlCN  SHELTERED  IS  *50.  FOR  THERMAL  OARAGE  THl*  V.ftLu£  1$  PMOBA-# 
PRINT  *81 Y  YOG  LON  BECAUSE  SURE  OF  THE  PEOPLE  OuTfiSt  *5  *£LL  AS  ALL  Of* 
PRINT  #Th|  PEOPLE  INSIDE  MLL  6E  SMELCEy.  A  VALUE  OF  ,7S  IS  hRObASLY# 
point  #A  PORE  APPROPRIATE  VALVE  FOR  THERMAL  DAMAGE  CASES.* 

PRINT 

hem  «Puf  the  Information  subroutine  for  ouestiors  *7-3%  her*#. 

PRIM  •  IN  COMPUTING  CANaUE  FOR  Th«  VARIOUS  CELLS.  THE  YM  HAKES* 

PRINT  •COMPUTATIONS  At  SIMULATED  ?!*t$  SPECIFIES  THE  USER.  THREE* 

print  *  inputs  arc  Ngecto  to  specify  a  r  sh£  seoulsc*—  the  time  that* 

PPtNT  #T»*£  COMPUTATION*,  ARE  Til  #E0iN»  l*t  TT-s  Jr-*1  THE  COMPUTATIONS  ARE# 
PRINT  ATD  ENC.  ANO  Th£  TIME “INtfRVAL  B? Tv^T.N  CAttULMlONS.  !h*£E  HM£* 
PRINT  #Sk'CUENCtS  ARE  AvARABCfc  IN  THE  v* -H  *U0M  !»•*„  UStR  li-MIUtL  ITY# 
PRINT  #1n  HANCLtNO  CIFFE«CnT  PROBLEMS.  THL’f  JR|T  TIMl  SEOUENCt  IS  $»£*# 
PRIM  ACIFIEO  IN  UMTS  OF  SCCONfiS  ANO  IS  USED  IN  PvOL  BURNlNO  OR  FIREBALL# 
PRINT  *P(SC9l£MS  hhEPE  IGNIHDTi  OCCURS  GUin  SOON  AMtR  ThE  SPILL*  THE# 

PRINT  »SFCCN0  AND  ThIhO  TIME  SE<SlH*tt§  ARE  tN  UNITS  UF  MINUTES.  THESE  APE# 
PRINT  #  USED  In  TO* SC  CM»*0£  0*  FLASK  FJPC  PROBLEMS  INVOLVINU  THE  COHN-* 
PRINT  »»|NU  TRANSPORT  OF  TYt  rAfAROOU?  wAP-jR  CLCUC.  UHOINaRIlt.  ONLY  OnE* 
PRINT  #TtMC  SELL’tNCC  IS  NEEDED  TOR  THESE  PROBLEMS.  ANO  A  MECORMENOtO# 

PRINT  aSEOUENCE  IS  *S  MJLlU*S-*« 


PRINT  # 
PRINT  # 
PRINT  » 
PRINT 


t-HEGlH  •  2  minutes# 
T~€*0  MO  MINUTES* 
t-oclta  •  2  MINUTES# 
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16310  PRINT  PHQWEvEH*  IN  CASES  WHERE  THE  VAPCR  CLOUD  HAY  TRAVEL  OVEk  LANGE* 
16320  PRINT  *C|3TANC£S  WHERE  NO  VULNERABLE  RESOURCES  EXIST*  SUCH  AS  Tht  CASE* 
16330  PRINT  *OF  A  SPILL  OCCURRING  SEVERAL  HILES  FROM  SHORE*  THE  USER  WILL* 

16360  PRINT  *C0NSERV£  COMPUTER  TIME  BY  USING  TWO  TIME  SECUENCES*  I.E.*  BOTHA 

'  t63SO'"PRlvT~*TH'£~SECONO‘  ANE'  fRE'TNlRD,  IN-TMS^CASer-THEr-SECOWT-SEQUEHCt* - 

16360  PRINT  *WOULO  BE  SPECIFIED  POM  THE  TIME  IT  TAXES  THE  VAPOR  CLOUD  TO  REACH* 
16370  PRINT  #SH)RE  ARC  INFREQUENT  CALCULATIONS  WOULD  BE  SPECIFIED*  THEN*  THE* 
16360  PRINT  *THRO  SEQUENCE  wOOLO  tsE  USED  TO  SPECIFY  THE  FREQUENCY  OF  CALCU-* 
16390  PRINT  *L*T IONS  AFTER  T*E  CLOUD  REACHES  THE  SHORE  AND- NONE  FREQUENT  CAL** 
16400  PRINT  ACULATICNS  NORMALLY  USED  FOR  POPLLATEO  REGIONS  WOULD  BE  SPECIF IEO»* 

I6410-15RINT'  *Ei6iT  EVERY  B  MINLTES^* — - : - - * - 

16420  PRINT 

16430  PRINT  *  THE  UIM  HAS  AUTOMATICALLY  SPECIFIED  AS  INFREQUENT  TIME# 

16*40  PRINT  #S£GUENCE  OVER  WATER  ANO  A  2-MINUS  SEQUENCE  OVER  LAND  FUR  YCUR# 
16450  PRINT  WPRORLEM.  1*  YOU  WISH  TO  CHANGE  THIS  TIME  SECUENCE.  ENTER  INPUT# 
16460  PRINT  *0THERWISE*  ENTER  NO** 

164T0  PRINT 
16460  RETURN 

16490  REM  #TH Is  SUB  USED  FOR  OUTPUT  TO  A  FILE*  . - 

16500  0*1 

JG510  IF  .V*»#NEW*  THEN  16530  .  - . 

16520  0*3 

16530  F!LE~iC*C*- - - - 

16S40  PRINT  =0  USING  16SSQ.AU1P  INPUT*. Mk.N2t 
16560  PRINT  50 

165T0  PRINT  SC  USING  16580. MU. MS  . . .  ”  - 

16560  11001  =55  *555* 

I6S90  PRINT" 5C  USING  16600* T tX'iT&TtmZ* iVlfT t'ZtZZT - - 

16600  i  55  5555  55555.5? 

16610  PRINT  SC  USING  16620*  <.  U  *120  i  *F  1  -  “■  -  ■— 

16620  l  55  5 

16630  PRINT  50  USING  16640.2  U  *121 1  *63  *  ~ 

166*0  i  55  5 

16650  PRINT  50  US!NC16660-.2n*4r,2rj*4»*2T2Y4> - — - - - - 

16660  «5555  3.35==****  5=55551,55 

166T0  PRINT  50  USING  16660. 2 11  *5>  .7(3.51  .212*5) . 

16660  i3=55  55555*5  555.55 

1669U  PRIM  |fi  USING  16700*2(1 *91*213*9) .2 <2*91 

16700  1=555  5555.5  55s. S2 

16710  PRINT  K  USING  16T20i?(l»2>  *2YJ*2).tfr«>—  *  - - - 

16720  s=S55  5555.55  SS3&.SS 

16730  PRINT  SC  USING  16740 . I t 1 . 31 ,2 13.31 .2 I2.3T 

16740  « 5555  =.335S***«  =35 

16750  PRIM  50  USING  16760. ?U*!3$>«7(3*I3S) 

16760  1=5=5  5. 

tG770  PRINT  ?C  USING  16760. 2X1.61.2(3*617212.61 - -  — —  “  . 

167P0  1=555  5.53SSS***  5.55 

16790  PRIM  50  USING  16600 *2 ( I .71 .2 t3.7) .2 (2* 7) 

16600  isssi  5.55=5*9*9  555.55 

16610  PRIN*  sc  uSIh<5  16620. 2(1.  1371.2(3. 1371 

16*20  «=55S  5.5555**** 

16830  PRINT  SC  USING  16640.T(l.f  T*2t3.T»  .tt?.8r  “  "  "  . . 

16640  t|555  5555.  5555.55 

166S0  PRIM  =C  USING  16*60. 2(1*16) .2(3. 161.2(2.161 

16*60  13555  3  =  55.  355.55 

16AY0  PRIM  =C  USING  166*0. 2(1. 191.2I3.191.HS* 

166*0  1=555  f.  5. 

1*6*0  PRINT  sC  USING  16900.2(1.101 .2(3. 101. 212.101  *  -  -  -  - 

IHROo  15=53  5.  s 

16910  I*  2(2.|6l*t  Then  |69*g 

16920  PRIM  =C  USING  16930.2 1 1 . l2t .2 1 3. 121 .2 (2. 121 

16930  1=5=5  33331***  3553.55 

1*9*0  PRIM  USING  16990*2(1.1381 .2  O*  I JWI 

169S0  155=5  5.  •**“--* 
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16960  PRINT  =C  USING  16973*2 U* 11 > *2 (3.11 > *2 <2*1 l > 

16980  PRINT  ic'uilNG  16990*2 U *139) iZ <3* 139) 

16990  15555  5=55.5==  -- . .  : - - - - - - 1 

17000  PRINT  50  USING  17010.Z ( 1 . 101) .2 <3* 101 > 

-TT0TO- 1 =5=5 - =“• - : - 

17020  PRINT  50  USING  17030*2 (1*102) .2 (3.102) 

*17030  1=5=5  “  - 5. - - - - 

17040  PRINT  50  USING  17050.20*140)  *ZJ3*140>_ 

17060  PRINT  io’uSINC  17070 *Z < 1  *  103) »Z (3* 103) 

T7OT0  (====  ====;== - * - - - - - 

17080  PRINT  50  USING  17090*2(1*1411*2(3*141) 

17100  A^~5Ta*Io7«I *th£n  niso 
•  -  nor  PRiNT-=irusTRG-i7i2QT2nTr3T*rrj*ro«zren3T — 
17120  15555  55=5.  5555.55 

17130  PRINT  5U  USING  17140*Z(1*104)«Z(3«104) 

17140'  1=555  5.5555m* 

17150  "PR  INT'  rir. USING- 17160*2  sr*T^?T*2C3*T42T - 

17160  1=555  5.= 

17170  IP  -2  (2*10 )  *1  THEN  -J7220 - - - 

17190  PRINT  50  USING  1 7190*2 O *14) *2 (3*14) *2 (2* 14) 

1 71 90-  “t  ====-  555=1=-— - -55T5S - 

17200  PRINT  =0  USING  1 7210*2 1 1  *  15)  ♦2j£*_15)  *2  12* 

17220  PRINT  =U  USING  l7230*Z<l*i8>*Z(3«18>*2(2*18> 

17230  1555=  =5=5.55 . =555.55---  -  - 

17240  PRINT  =C  USING  17250 *Z (1  *  17) *2 (3* 17) *Z <2* 17) 

■  tT250  T5555-555V55 - £==i= - 

17260  PRINT  =0  USING  17270*2 (1 *255 *Z 53*25) *Z (2*25) 

17270  1=55=  . "SV-  5 . - . . . . —  — 

17280  PRINT  =0  USING  17290*2 5 1  *  143) .2 (3* 143) 

17300  PRINT  =0  USING  1735 0*2 5 1 *23) *Z 5 3.23) *2 (2.23) 

-T73TG-TS555 - Si - = - 

17320  PRINT  =0  USING  17330.2 <1  *  105) *2 (3. 105) *M5S 

17330  (55=5  =  .  »5==V . . 

17340  PRINT  SC  USING  17350.2 ( 1 .106) .2 !3* 106) 

17350  (55=5  . 5. .  - . -  -  ’ 

17360  PRINT  50  USING  17370*2 (1  *  147) .2(3* 147) 

"l  7370")  55=5  5551 - 1 - ~ 

17380  PRINT  =0  USING  17390*2 ( 1  *  155) *2 (3. 155) 

17390  (====  5=55.5  . ~  ~  - 

17400  FOR  K*148  TO  1S4 

17410  PRINT  =C  USING  17420 *7( 1 *K) , Z (3.K) 

17420  (====  ====.==== 

17430  NEXT'  K  - - : - 

17440  PRINT  =0  USING  17450 . Z ( 1 *26) *2 (3*2t > *2 (2*26) 
17450  (=555  5.==  5. =5 

17460  FOR  K«27  TO  3S 

17470  PRINT  =0  USING  17480 *2 ( 1 *K I *2 (3.R) *2 (2«K) 

17480  *5=55  ====•  55=5. 

17490  NEXT  ’K  . . -  . . . . 

17^00  PRINT  =0  USING  1 7510*2 ( l *20) *LJ <1 > *L% ( 1 ) 

17510  )=5==  =======55=  *==========. 

1 7S20  PRINT  =C  USING  17530. Z  ( 1 .21 )  »L* (2)  ♦(.! <2 > 

17530  (=55=  ====555=5=  .5=5=5=5=£b* 

17540  PRINT  =C 

17550  IF  0«3""t1'EN  17640  "  . .  . " . 

17560  01MASAVE***Q1 
17570  CLOSE  SO  01* 

17580  PRINT  AA  NEW  F IL.-  ..AS  bEEN  SAVED  FOR  YCUA 

17590  PRINT  USING  IT600.DJ 

17600  (THE  NARE  OF  TPE  NE*  FILE  IS  ====== 

17410  PRINT  FPLEASE  KERER6ER  IT  FOR  FURTHER  USE. A - 

17620  PRINT 
17630  RtTURN 
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17640  REM  'PROCEDURE  TO  SAVE  THE  NLW  AND  OLO  FILES. A 

17650  Dl««A5AVE»*»0$  . - . . .  . 

17660  CLOSE  SO  I  01$ 

-IT670  XLOSr-5* - 7 - - - — 

17660  PRINT  'THE  NEW  FILE  HAS  BEEN  SAVED.  ITS  NAME  IS  AtCSAA.# 

17690  PRINT  'THE  ORIGINAL  FILE  STILL  EX  I S T$ »  -IT$'  NAME' ' IS  "STILL "A IE$ I*. A 
17700  PRINT 

17710  RETURN  -  . . -  -  - - - -  -  • 

17720  PRINT  ATHIS  FILE  ALREADY  EXISTS  ON  QISK.A 

~tro0~00TO-0927<r - - - 

17740  REP  ASUS  USED  TO  GENER  NAME* 

17750  DATA  A.B.C.U.E.F.U.H.I.J.K.L.N.N.O.P.O.RvS.T.U.V.W.lUY.X 
17760  OIM  Alt (26) 

17770  MAT  READ  Al$  . . . • - T - - 

17760  OIM  A2S(6) 

17790  FOR  1*1  TO  6 

17800  A2*(I)«A1$(INT(<  (RNC(-J)*25>.1)>> 

17810  NEXT  I  . 

17820  F8«l 

17830  OS«X2Stl)»A2S(2)*A2t(3)*A2S(4>»A2S(5>»A2St6> 

17840  RETURN 

■  17850  mem  atkts' procedure  useo'TO  inpot-xn- cx-rstiNcrrttt*- - 

17860.  OIMOUNMYF* 

17670  0*2  . . . .  ’  •  ’  . 

17880  PRINT 

17890  PRINT  *VHAT  IS  THE  NAME  OF  THE  TILE  THAT  YOU  WISH  TO  LOAO.A 
17900  INPUT  0* 

'  1791 0“TF  0*«ASTCPA-  THEN-T99t0 - 

17920  IF  LEN(0$)«6  THEN  17980 

17930  PRINT  ATnOSE  FILE  ACCESSABLE  BY  THE  UIM  ART  ONLY  THOSE  CREATEUA 
17940  PRINT  ABY  THE  U1M.  THOSE  FILLS  CRCATEO  BY  THE  UlM  ARE  SIX <61 « 

179S0  PRINT  'CHARACTERS  IN  LENGTH.  PLEASE  RETYPt  YOUR 'ANSWER.  YOUA 
17960  PRINT  'TERMINATE  THE  PHOGRAM  BY  ANSWERING  STOP. A 

IT9T0  ROTO  17900'“ - - - - 

17980  FILE  :Ct  'GET.A«0$ 

17990  PRINT  •  -  . .  " 

18000  PRINT  APLEASE  WAIT  WHILE  I  LOAD  YOUR  FILE. A 

19010  INPUT  5C.F1 

16020  INPUT  5C«F»Fl$»Ml$ 

16030  W*»Mlt -  - - - - 

18040  OOSUH  11930 

16050  INPUT  *0,2(1.24). 2(2«2«.l. 2(2. 22)  . . . . 

16060  INPUT  50,2  ( 1*120) ,F1 

18070  F5«l  " 

19080  GOTO  01060 

18090  INPUT'  sDV7TI.I2n.e3' - - - -  ' 

16100  IF  H3«0  THEN  18130 
18110  R3$*AYESA 
16120  GOTO  1PU0 
18130  B3$«AN0A 

18140  INPUT  sC, 2(1. 4). 2(3.4), 2(2, 4) 

18150  «EM  AUNTTS  AND  "CHER- TC*L  PROPERTTES-SETIA - - 

18160  INPUT  50, 2(1. S). 2(3,5) .2(2.5) 

14170  INPUT  SC. 2(1. «)»2(3.9>, 2(2*9) 

18)80  INPUT  50,2(1,2) ,2 (3.2) *Z (2«2I 
18190  INPUT  5C,2(1»3)»2(3,3).2(?.3I 
1*200  INPUT  50, 2(1. 135). 2(3. 13S) 

18210  tNPUT  sCV2(l.CrT2f3T6r,2r2,6) - - - 

18220  INPUT  50.2(1, 7), 2(3.7), 2(2.7) 

1623C  INPUT  50,2(1.137). 2(3. 137) 

18240  INPUT  5C,2<1.2!«2(3,£>«2(2,d) 

18250  INPUT  =C, 2(1, |6)»2(3,16)» 2(2.16) 

18260  INPUT  50. 2(1.191, 2(3,191, “9$ 

-16270  INPUT  50,7(1.10). 7(3. TO)  V7T2. 10)  - - -  '  *  - :  - - 

18260  IF  2(2.10)*!  Then  1B300 
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18290 

18300 

18310 

18320 


INPUT  5C. 2(1. 12), 2 (3, 12). 2 (2. 12) 
INPUT  =C*2<1*138) *2(3*138) 

input  ;o,r<i»n).zo.u>*z<2»ii> 

INPUT  =0,2(1, 139). 2(3*135) 


-re33cr-tNPUT--;0',mTrxmTft3,ror) 


16340  INPUT  =0,2(1. 102). 2(3. 102) 

18350  INPUT  =0,2(1*140) *2(3* 140)  - 

18360  INPUT  =C.2(1*103)*Z(3*1Q3) 

18370  INPUT  =0.2(1,1-41!  .2(3*141)  . 

18380  IF  2  (2* 10) 3 1  THEN  18410 

TS390-I NPUT  '=DTZTT»T3T,Z  (3, 13 TTZ CZ *T3) - - 

18400  INPUT  =0.2(1.104). 2(3*104) 

18410  INPUT  50.ZU.143) .Z13.142) . . 

18420  IF  Z  (2 « 10 ) 31  THEN  18450 

18430  INPUT  =0,2(1. 14). 2(3.14)12(2,14) - 

18440  INPUT  =C,Z(1, IS), 2(3.15), 2(2*15) 

18450  INPUT  =0. 2(1. 18), Z(3*18), 2(2*18) 

18460  INPUT  =0,2(1, 17). 2(3* 17). Z(2* 17) 

18470' INPUT  =0,2(1. 25 >.2(3,25) *2(2*25) - 

18480  INPUT  =0.2(1, 143), 2(3, 143) 

18490  INPUT  =0.2(1. 23), Z(3, 23). 2(2, 23) 

18500  INPUT  =0,2(1.105). 2(3, 105), MSS 

19510  INPUT’  =0.2  ( 111  06>,2'C3»  1081 — - - 

18520  INPUT  50,2(1.147). 2(3.14?) 

18530  INPUT  =0.2(1. 155). 2 13,1 55)"* . - 

18540  FOP  *  =  148  TO  164 

18550  INPUT  =C ,2 (1 ,K) ,2 (3.K)  *  . 


18560  NEXT  K 

18570  “INPUT  =0.7(I  .26)ir{3T?5)Trr?f2«r) - 

19580  FOP  K»27  TO  35 

18590  INPUT  50 .2(1, K) ,2(3, K)* 2(2, K)  . -  . . . 

18600  NEXT  « 

18610  INPUT  50, 2(1, 20). FS, Ltd) . -  .  . . 

18620  INPUT  =0. 2(1.21), FS.LS<2) 

16630  PR  TNT . — - - - 

19640  PRINT  AFRE  IS  NOW  LQAUEC.A 

1 R650  RESTORE  =0  .  . .  “ . .  '  ~ 

18660  O0SU8  19910 

18670  PRINT  . - . 

19680  IF  KSoAyESA  THEN  07900 

16690'  TF  riar  iTEN--ir730 - * - 

19700  PRINT  A  ThE  FILE  L0ACEC  WAS  CHEATED  USING  MKS  UNITS. A 
18710  PRINT  ACNLY  MKS  UMTS  CAN  0E  USED  DURING'  EDITING . A  ~ 

1  *-1 7 ^ o  GO  TC  07900 

18730  PRINT  ATRE  FILE  LOACED  WAS  CHEATED  USING  BRITISH  UMTS. A 
18740  PRINT  A0NLY  BRITISH  UNITS  CAN  BE  USED  CURING  EDITING. A 

18750  GOTO" 07900 - - * - * - - - ' 

18760  PRINT 

18770  PRINT  AL0A0ING  AIDStA.,,*  •  1  ”  '  . 

18780  Fb=? 


18790  GOTO  18010 

18fl00  REM  A0ReM>  TG  BURC  A  VM»ACwEPTABLt  OATA  FILE, A 
19310  0>A  . . . . -  . — - 


18820  FIl£  5D=avmINRUTA 
1  °830  PRINT  50.Mt.N2S 
1M840  PRINT  50. A  A 


16890  PRINT  SC.AlQOlAIWlt 
1 8860  PRINT  5C  l SING  18870,2 ( 1 ,4) ,2 (3,4) 

18870  ! 55  =  5  .====*»')* . . 

18880  PRINT  50  USING  U690.2 ( 1 »5> ,2 (3.S) 
1 8890  15=55  5555=.= 

1 9900  PRINT  =0  USING  199 1 0 «  2 il ,9) ,2  1 3 .9) 


18910  15=5=  5=5==.= 

18920  PRIM  50  USING  19930.2(1,21,2(3.2) 
18930  " 1 5=55  55=5.55 

18940  PRINT  5C  USING  IP950.Z ( 1 .3) .2 (3.3) 
18950  ! 5555 


FIGURE  B-3  (continued) 


B-52 


18960  PRINT  =C  USING  18970.2 U » 135) .2 <3* 135) 
18970  1=53=  5. 

18980  PRINT  =U  USING  18990. 2(1.6). 20. 6) 

18990  »====  .=5=5 MS* - 

19000  PRINT  50  USING  19010. 2(1. 7). 20. 7) 

19010  (=555  .S55SMM  . 

19020  PRINT  =C  USING  19030.2 ( 1 . 137) .2 (3. 137) 
19030  (55=5  .5555MM  ■ 

19040  PRINT  50  USING  19050.2 ( 1 .8) .2 (3.8) 

19050 ’"15355  .5555999*  - - - - 

19060  PRINT  =0  USING  19070.2 ( 1 .16)  .20*  16) 

19070  (=5=5  .5555MM 

19080  PRINT  50  USING  19090.2 ( l . 19) *2 O. 19) 

19090  155=5  5.  . -  -  - 

19100  PRINT  50  USING  19110.2(1.101.2(3*10) 

19110  >====  5. 

19120  IF  2(2. 101  «* l  ThEN  1915U 

19130  PRINT  =0  USING  19140.2 ( 1 . 12) .2 (3* 12) 

19140  (=55=  .5=5=9999 

19150  PRINT  5G  USING  19160.2 ( 1 . 138) *2 (3. 138 > 

19160  (5=5=  5. 

19170  PRINT  50  USING  1918(T.’2  ( l <  1  m2t  J*  It ) - 

19180  (5=55  555.5= 

19190  PRINT  50  USING  19200.2(1.1391.2(3.139)  ’ 

14200  (5=55  555.5555 

19210  PRINT  =0  USING  19220.2 ( 1.10U .2 (3*101 1 
19220  (5=55  =  . 

19230  PRINT  =C  USING  19240 .2 ( 1 . 1 02>'*2 (3*10?) - 

19240  (55=5  5. 

19250  PRINT  5C  USING  19260*2 ( 1 . 140 ) *2 (3* 140 )  " 

1R260  (5555  25=5. 

19270  PRINT  =C  USING  19280.2 ( l .1 03) .2 (3. 103) 

19?80  :====  5=55.== 

19290  PRINT  5C  USING  19300»2mi4ir*2r3*T4n - 

14300  15=55  .5=559999 

19310  IF  2 (2* 10) »1  ThEN  19360  . 

19J20  PRINT  =C  USING  19330 .2 ( l . 1 3) .2 (3. 13) 

19330  155=5  =5=5. 

19340  PRINT  5C  USING  19350 .2 ( 1 . 104) .2 (3. 104) 

19350  1=5=5  .55x59994  — - - 

19360  PRINT  =0  USING  19370. 2  1 1 . 142) . 2 (3. 142) 

19170  15555  =.= 

19180  IF  2(2.10)»1  ThEN  19430 

19390  PRINT  5C  USING  19400.2(1.141.2(3.14) 

19400  (5555  55=5.5 

19410  PRINT  =C  USING”19420‘.rCIil5>TrT3V15) - 

19420  (=5=5  5. 

19430  PRINT  5C  USING  19443.2 ( 1 . 18) .2(3. 18) 

19440  1=555  55=5.55 

19450  PRINT  50  USINC  19460.2(1.171.2(3.17) 

19460  (=555  555.55 

19470  IF  M5»4*vES#  4NC  GSOKSFBtANKir  THir  t9<W" 
19480  G6«#SFGL4NK» 

19490  PRINT  £C  USING  19500. 2 ( 1 .25) . 2 (3.25) 

19500  (5555  5. 

19510  PRINT  5C  USING  19S20 .2 ( l . 143) .2 (3. 143) 

)9S20  (555=  5. 

19530  PRINT  5C  USING  19540 .2 ( 1  *23)T21  J«2?r~ - * 

19540  (=«==  5. 

19550  PRINT  =C  USING  19560.2(1.105) .2(3. 10S) 

19560  15=55  =  . 

19570  IF  2(2«23)«4  ThEN  19600 

19580  PRINT  =C  USING  19590.2(1.1061.2(3.106) 

19590  (=5=5  =.  “  ’  ' 

)9b00  PRINT  =0  USING  19610.2 ( l» 14T) ,2 (3. 147) 

19610  (5555  55=. 


FIGURE  B-3  (continued) 


B-53 


!*g{  Jgi£2  ySINC  146»»2{3,I«6» 

19640  IF  iT3*lSS)«999  THEN  19670 

19660  r^nOsr  *««••  <Tmissi  .2t3.is$r  - 

19670  FOR  K<?48  TO  154  . 

iSSo  »====  fs-rS---  lV690*2<l»«>^‘3*K) 

19700  NEXt'k . 

197201====  !c--stNG  - 1 

19730'  F0R*?»27  T0  35 
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Appendix  C 

DERIVATION  OF  PROBIT  COEFFICIENTS 


Fourteen  toxic  chemicals  are  incorporated  in  the  UIM.  These  consist 
of  seven  chemicals  for  which  probits  had  been  previously  derived  and  seven 
new  toxic  chemicals  for  which  probit  equations  had  to  be  developed.  For 
the  previously  derived  chemicals,  all  probit  equations  were  reviewed  and 
changes  were  made  where  errors  were  found  or  where  new  data  could  be  util¬ 
ized.  For  the  new  chemicals,  toxic  effects  literature  was  researched  and 
probit  coefficients  were  derived  from  available  dose-response  data,  using 
logical  extrapolations  and  inferences  where  necessary. 


The  probit  methodology  is  discussed  on  pages  77  to  90  of  Eisenberg  et 
al.  (1975)  (reference  [1]  of  this  report)  and  can  be  found  in  numerous 
toxicology  or  mathematical  textbooks. 


Table  C-l  presents  the  probit  coefficients  derived  for  the  14  chemi¬ 
cals.  Presented  are  the  concentration  exponent  In) ,  the  constant  (a),  and 
the  slope  (b)  of  the  probit  equations 


Pr  *  a  +  b  in 


lfdt 


where s  Pr  ■  probit  value 

C  “  concentration  (function  of  time) 
te  -  time  of  exposure 

Also  presented  are  the  irritation  thresholds. 

The  dose  effects  data  on  which  each  of  the  probit  derivations  is  based 
are  summarized  in  the  following  paragraphs.  Much  of  the  data  represents 
expert  judgment  of  specialists  after  review  of  the  existing  dose-response 
data  for  animals  and  humans. 
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TABLE  C-l 


Probit  Coefficients  for  Toxic  Chemical  Lethality 
(concentration  in  ppm,  time  in  minutes) 


Chemical 

Exponent  of 
Concentration 
(n) 

Constant 

(a) 

Slope 

tb) 

Irritation 

Threshold 

(PF«0 

Acrolein 

1.00 

-9.9315 

2.0488 

0.26 

Acrylonitrile 

1.43 

-29.4224 

3.008 

None 

Ammonia 

1.36 

-28.33 

2.27 

100 

Carbon  tetrachloride 

2.50 

-6.29 

0.408 

None 

Chlorine* 

2.64 

-36.45 

3.13 

3.4 

Hydrogen  chloride 

1.00 

-16.85 

2.00 

10 

Hydrogen  cyanide 

1.43 

-29.4224 

3,008 

None 

Hydrogen  fluoride* 

1.00 

-25.8689 

3.3545 

32 

Hydrogen  sulfide 

1.43 

-31.42 

3.008 

70 

Methyl  bromide 

1.00 

-56.81 

5.27 

None 

Phosgene 

1.00 

-19.2736 

3.6861 

5 

Propylene  oxide 

2,00 

-7.415 

0.509 

None 

Sulfur  dioxide 

1.00 

-15,670 

2.10 

5 

Toluene 

2.50 

-6.794 

0.408 

None 

•Injury  probits  are  available  for  chlorine  and  hydrogen  fluoride  only. 
The  probit  coefficients  for  injuries  are  as  follows t 


Exponent  Constant  Slope 
Chlorino  1.00  -2.40  2.90 
Hydrogen  fluorido  1.00  2.797  2.90 
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ACROLEIN 


The  dose-response  data  used  for  generating  the  probit  coefficients  are 
presented  below.  The  data  were  extracted  f ran  the  table  for  acrolein  on 
page  88  of  Rausch  et  al.  (1977)  (reference  [2]  of  this  report) . 


% 

Exposure 

Concentration 

Deaths 

(minutes) 

(ppm) 

3 

45 

14.76 

15 

42.13 

5 

126.53 

50 

90 

14.76 

■  45 

42.18 

10 

126.53 

97 

90 

42.18 

22.5 

126.53 

ACRYLONITRILE 

Acrylonitrile  is  a  liquid)  boiling  point,  77 .3#C;  %  by  weight  in 
saturated  air,  14.5)  solubility  in  water,  7.3%. 

An  unsuccessful  search  for  useful  dose-response  data  was  made,  and  it 
appears  that  even  a  substantial  further  effort  is  unlikely  to  pay  off. 
However,  we  can  make  a  reasonable  estimate  of  human  response  to  acute  ex¬ 
posure  at  high  concentrations  because  acrylonitrile  is  toxicologioally 
similar  to  hydrogen  cyanide  (HCN) ,  and  a  similar  type  of  response  can  be 
expected.  The  problem  then  is  to  estimate  relative  numbers. 

The  complicating  factors  aret 

e  HCN  gives  far  from  constant  effects  for  a  given  dose  (Ct) 
over  various  exposure  times)  the  reason  is  rapid  detoxifi¬ 
cation  to  SCN'  and  presumably  acrylonitrile  is  the  same. 

(See  the  table  in  the  Hydrogen  Cyanide  section  below, 
where  the  LCtsjf  for  30  minutes  is  10  times  that  for  0.5 
minute . ) 

e  The  CN  of  acrylonitrile  may  not  be  as  immediately  avail¬ 
able  in  vivo  (though  the  literature  is  unclear  on  this) , 
and  so  the  detoxification  may  have  more  opportunity  to 
occur.  (Me  propose  to  ignore  thist  we  have  no  way  to 
allow  for  it,  and  not  doing  so  will  avoid  possible  under¬ 
estimation  of  casualties.) 


*LCt5Q  is  the  dose  (concentr?.tion  times  time)  whiah  results  in  50% 
deaths. 
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Lethal  exposures  to  acrylonitrile  from  Patty  (1962)  ares 


Rat 

Rabbit 


Cat 

Guinea  pig 
Dog 


1.38  mg/liter 
0.56  mg/liter 
0.46  mg/liter 
1.25  mg/liter 
0.18  mg/liter 


These  are  not  to  be  regarded  as  LC50* values  and  times  are  lacking  or  not 
explicit,  so  we  have  no  LCt  values.  Mote  that  the  dog  is  most  sensitive, 
as  for  HCN.  Omitting  the  dog,  we  have  a  value  of  roughly  1  mg/liter  or 
1,000  mg  m**1.  This  is  equivalent  to  about  500  mg/liter  of  HCN  (on  an 
equal  CM  basis).  The  concentration  of  HCN  estimated  for  LCtt>o  in  man  is: 


Time 

Concentration 

(minutes) 

(mg  m~5) 

1 

3,406 

3 

1,467 

10 

607 

30 

687 

Me  don't  know  the  times  for  acylonitrile,  but  they  are  very  probably 
more  than  a  few  minutes  (and  this  is  the  true  range  of  interest  for  the 
VM),  so  for  the  derivation  of  the  probit  coefficients  for  acrylonitrile 
we  used  the  HCN  dose-response  data.  (Acrylonitrile  should,  however,  be 
significantly  less  of  a  haeard  because  its  vapor  pressure  is  lower.) 


AMMONIA 

The  best  estimate  of  dose-response  and  its  time  dependence  is  pre¬ 
sented  in  the  following  table  which  is  extracted  from  Table  6-4  (page  86) 
of  reference  (1)  of  this  report. 


% 

Exposure  Time 

Concentration 

Deaths 

(minutes) 

3 

45 

1,750 

15 

3,250 

50 

90 

1,750 

45 

3,250 

97 

90 

3,250 

*bC50  ie  tho  concentration  that  rooulto  in  50%  deaths.  Usually  a  time  is 
opccifiod  whon  LC50  is  given. 
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CARBON  TETRACHLORIDE 


The  probits  for  carbon  tetrachloride  are  derived  from  dose-response 
data  presented  below  and  extracted  from  pages  81  and  82  of  Rausch  et 
al.  (1977). 


% 

Deaths 


Exposure  Time 
(minutes) 


Concentration 

_ _ JSSBl _ 

6.67  x  io3 
4.45  x  103 
3.18  x  103 
2.54  x  io3 

33.4  x  10s 
22.25  x  10s 
15.9  x  103 
12.7  x  IQ3 


CHLORINE 

This  is  definitely  not  a  Haber's  Law  toxicant.  As  concentration  in 
creases,  the  LCt^o  decreases.  Best  estimates  of  time  relationships  are 


Several  hours 
60  minutes 
10  minutes 


The  dose-response  would  be  more  or  less  the  same  at  the  various  expo¬ 
sure  times.  The  best  estimate  of  dose-response  1st 


%  Lethality 

Relative  Dose 

10 

0.66 

20 

0.76 

50 

1.00 

80 

1.30 

90 

1.50 

The  basis  for  the  injury  probit  coefficients  is  given  on  page  87  of 
Eisenberg  et  al.  (1975). 


HYDROGEN  CHLORIDE 


The  probits  for  hydrogen  chloride  were  derived  from  the  dose-response 
data  below  extracted  from  Table  5-4  of  Rausch  et  si.  (1977). 


% 

Exposure  Time 

Concentration 

Fatalities 

(minutes) 

(ppm) 

3 

45 

302 

15 

906 

2.5 

>1,342 

50 

90 

302 

45 

906 

10 

>1,342 

9? 

90 

906 

HYDROGEN  CYANIDE 

The  following  estimates  of  toxicity  for  man  arc  from  McNamara  (1976) , 
and  may  be  confidently  used  as  the  best  and  most  authoritative  estimates 
available,  and  were  used  to  derive  the  probit  coefficients  after  conver¬ 
sion  to  ppm.* 


Lethal  Dosages  for  Man 
in  mg  min  m“* 


Exposure  Time 
(minutes) 

%  Deaths 

1 

16 

30 

50 

84 

99 

0.5 

1,177 

1,606 

1,791 

2,032 

2,552 

3,480 

1 

1,930 

2,632 

2,937 

3,404 

4,183 

5,705 

3 

2,546 

3,473 

3,874 

4,400 

5,519 

7,526 

10 

3,688 

5,302 

5,916 

6,072 

8,426 

11,491 

30 

11,992 

16,355 

18,247 

20,632 

25,991 

35,443 

McNamara  arrived  at  these  estimates  by  the  same  sort  of  method  that  we 
have  used  previously.  Data  for  various  animals  (Barcroft,  1931)  were  ana¬ 
lysed  to  get  dose-response  regression  lines,  and  the  susceptibility  of  man 
(i.e.,  absolute  value  of  LCtSg)  was  assumed  to  be  similar  to  that  of  the 
resistant  goat  or  monkey.  (This  was  supported  by,  inter  alia.  Bar croft's 


•To  convert  mg  min  a"J  to  ppm  min,  multiply  by  0.906. 
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exposure  of  himself  and  a  dog  in  the  same  chamber.)  Data  for  the  mouse 
were  used  to  estimate  relative  ICtso  values  for  various  times. 

There  is  no  basis  for  estimating  incapacitating  casualties,  which  are 
likely  to  be  rare.  A  few  might  suffer  serious  brain  damage  or  persistent 
mental  impairment  (there  is  some  evidence  that  Barcrcft  was  afflicted  for 
about  a  year) ,  but  there  is  no  quantitative  information  and  they  would 
certainly  be  a  small  minority  at  most.  (Bar croft's  self -exposure  was 
probably  between  825  ag  min  m~s  and  1,032  mg  min  m-1.) 


HYDROGEN  FLUORIDE 

Response  to  this  toxicant  obeys  Haber's  Daw,  i.e.,  effect  is  a  func¬ 
tion  of  dosage  only  and  not  a  function  of  time  and  concentration.  The 
dose-response  data  upon  which  the  prob.it  coefficients  are  based  are  pre¬ 
sented  in  the  following  table  as  extracted  from  data  on  page  3?  of  Rausch, 
Tsao  and  Rowley  (1877)  (reference  (3}  of  this  report). 


24,450 

19,560 

12,255 

7,335 


HYDROGEN  SULFIDE 

Ho  data  suitable  for  calculating  dose-response  regression  for  hydrogen 
sulfide  (H;S)  has  been  found.  However,  it  appears  that  the  same  dose- 
response  as  for  hydrogen  cyanide  (KCH)  is  unlikely  to  be  seriously  in 
error.  Evans  (1967)  stated t 

"There  is  a  close  similarity  between  the  actions  of  HCN  and 
HiS  on  ensyme  systems)  both  act  as  inhibitors  of  catalases 
and  peroxidases  (which  all  contain  iron) ,  and  of  dopa  oxi¬ 
dase,  succinic  dehydrogenase,  carbonic  anhydr&se,  dipepti¬ 
dases  and  bentaaidase.  HCN  is  known  to  combine  with  the 
iron  in  cytochroma  Aj  (Kailin  and  Her tree,  1939))  HaS  prob¬ 
ably  acts  similarly,  and  has  also  been  shown  to  inhibit,  and 
at  about  the  same  molar  concentrations,  other  systems  con¬ 
nected  with  tissue  oxidations,  such  ss  the  CoIHj  oxidase 
system  (Slater ,  1958} . " 

The  most  conspicuous  effects  of  exposure  to  high  concentrations  are 
loss  of  consciousness  and  respiratory  paralysis.  Immediate  first  aid  to 
restore  respiration  is  effective.  Victims  who  recover  naturally  or  with 
medical  aid  seldom  show  any  lasting  harm  unless  hypoxia  has  damaged  the 


Cerebral  cortex.  The  gases  are  similar  also  in  being  quite  rapidly  detoxi¬ 
fied  in  the  body.  For  our  purposes ,  this  means  that  the  simple  dosage- 
response  relation  of  Haber's  Law  does  not  apply.  The  gases  differ  in  that 
HjS  has  a  stronger  odor,  particularly  offensive  at  low  concentrations  (but 
at  all  concentrations,  especially  higher,  olfactory  fatigue  is  rapid),  and 
it  is  also  more  irritant,  so  that  its  effect  on  the  respiratory  mucosa  and 
eye  dominates  the  picture  at  lower  concentrations;  eye  effects  may  persist 
for  some  days. 

The  close  similarity  of  the  two  toxicants,  HCN  and  KjS,  suggests  that 
the  slope  of  the  regression  should  be  similar,  and  that  the  time-dependence 
of  I£t  should  also  be  similar;  the  evidence  is  that  detoxification  occurs 
at  a  similar  rate.  We  need  therefore  to  check  that  lethal  exposures  are 
estimated  to  be  of  the  same  order. ... 

Patty  (19$%)  gives  the  “dangerous"  exposure  for  0,5  to  1  hour  as  560 
to  980  mg  a"*;  i.e, .  a  Ct  of  34.650.  RTECS  (1977;  apparently  quoting 
Henderson  and  haggard,  but  no  reference  is  given)  quotes  an  LCLo  (least 
lethal  found)  of  860  mg  m“3  for  30  minutes  (CT  »  25,200). 

H10SH  (1.9775  gives  a  concentration  of  1,400  mg  m“5  as  "rapidly"  fatal, 
which  say  be  supposed  to  mean  of  the  order  of  15  minutes  (CT  *»  21,000). 

IUi  estimate  can  b=s  mad<s  from  the  well-known  Poea  Rica  disaster  (quoted  in 
N10S8,  1977),  in  which  exposure  for  less  than  20  minutes  to  an  estimated 
.1,400  to  2,800  ©g  a” 3  killed  22  and  hospitalized  an  additional  307;  re¬ 
sidual  nervous  damage  was  reported  in  four.  (The  Ct,  admittedly  uncertain, 
ssay  have  been  2,100  x  15  «  31,500  »g  min  m“s.)  Deaths  were  delayed  in  a 
few:  four  at  2  hours,  four  at  6  hours,  one  at  24  hours,  one  each  on  the 
2nd,  5th,  6th,  and  9th  days.  "About  half  the  domestic  animals. . .died", 
mostly  during  the  acute  phase.  NIOSH  (1977)  also  quotes  data  for  mon¬ 
keys,  including  one  unconscious  and  needing  artificial  respiration  after 
2S  minutes  at  700  mg  sf*  (Ct  »  34,300).  Poda  (1966)  reported  123  cases 
of  HjS  poisoning  at  an  industrial  plant.  There  were  no  fatalities  but  25 
became  unconscious.  Stay  in  hospital/ infirmary  was; 

25 :  1  hour 

62:  1  to  4  hours 

11:  4  to  12  hours 

6:  >12  hours. 

The  estimates  of  Ct  for  fatality,  despite  their  unreliability,  en¬ 
courage  the  use  of  McNamara' s  HCN  estimates  for  want  of  a  better  solution. 
Compare,  for  example,  his  LCt$o  (30  minutes)  Of  20,632  mg  min  m~}  with  the 
HjS  estimates,  it  appears  that  H2S  is  a  little  less  toxic;  thus,  probit 
coefficients  ware  derived  by  doubling  the  HCN  figures  and  converting  them 
to  ppm. 
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METHYL  BROMIDE 


All  the  evidence  points  to  the  fact  that  this  is  a  strict  Haber's  Law 
toxicant  over  quite  a  wide  range  of  concentrations.  On  the  basis  of  dose- 
response  data  for  several  species  including  man,  the  best  estimate  for 
lethal  dose  in  man  is: 

LCtso  =  125  x  10 3  ppm  min. 


The  slope  of  the  dose-response  relationship  is  based  on  the  data  devel- 


(1977),  page 

89: 

% 

. Lethality 

Concentration 

(ppn) 

99 

184.3  x  103 

90 

164.4  x  io3 

50 

125.8  x  103 

'  10 

98.4  x  IQ3 

1 

77.2  x  ic3 

PHOSGENE 

The  probit  coefficients  for  phosgene  were  derived  from  the  following 
data  extracted  from  Rausch  et  al. ,  page  89: 


% 

Dose 

Lethality 

(ppm  min)  . 

95 

1,052 

50 

765 

15 

526 

PROPYLENE  OXIDE 

Propyleno  oxide  is  a  liquid,  with  a  boiling  point  of  34.2*C. 

Epoxides  of  low  molecular  weight  are  primarily  irritants  with  a  mild 
depressant  effect  on  the  central  nervous  system.  As  alkylating  agents, 
they  have  a  radicmiaetic  effect. 

Data  in  Patty  show  a  considerable  influence  of  time  on  effective  con¬ 
centration.  An  example  from  data  on  minimum  intensity  of  exposure  to 
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cause  death  in  all  animals: 


Time 

Concentration 

Dosage 

(minutes) 

(mg  m"s) 

(mg  min  m~3) 

6 

95,000 

570,000 

60 

33,300 

2,000,000 

600 

9,500 

5,700,000 

This  time-dependence  of  dosage  is  not  unlike  HCN.  These  data  were  used  tc 
derive  the  exponent  of  the  concentration. 

The  data  also  show  that  propylene  oxide  is  not  very  toxic.  With  an 
LCtso  of  the  order  of  1  x  10  mg  min  m”3,  it  is  similar  to  carbon  tetra¬ 
chloride  and  methyl  bromide.  The  type  of  dose-dependence  is  however  much 
more  like  that  of  CTC  than  MeBr  (which  has  a  Haber-type  dependence  on 
dosage) .  Despite  the  considerable  differences  in  toxicology,  wa  think 
that  the  CTC  dose-response  data  should  serve  adequately  for  derivation  of 
propylene  oxide  probit  coefficients. 


SULFUR  DJCOCZDS 

This  gas  has  been  studied  very  extensively  in  chronic,  low-level  ex¬ 
posure,  because  of  its  prominence  in  air  pollution  monitoring  and  control. 
(It  le,  howevary,  probably  a  proxy  for  sulfates  that  are  the  actual  etlo- 
logic  agents  in  epidemiological  studies.)  Low-level  human  exposure  shows 
it  to  be  highly  irritant.  Henderson  and  Haggard  (1943),  for  example,  give: 


m. 

•*  j 

■gjLi 

8-12 

21-31 

Threshold  for  throat  irritation 

10 

26 

Maximum  allowable  ior  long  exposure 

20 

52 

Threshold  for  ismadiate  eye  irrigation  and 
coughing 

50-100 

130-260 

Maximum  for  1/2  to  1  hour 

400-500 

1040-1300 

Dangerous  for  short  exposure 

Johnstone  and  Hiller  (1960)  say  that  "intolerable  irritation  and 
laryngospasm"  occur  at  2,000  ppm  (5,200  mg  m“*)  and  laryngeal  edema  fol¬ 
lows.  NX06H  (1974)  aays  that  in  catastrophic  exposure,  asphyxiation  is 
probable:  if  the  victim  survives,  chemical  bronchopneumonia  may  develop 
and  may  be  fatal  after  soma  days.  (A  man  exposed  for  15  to  20  minutes 
died  17  days  later.)  Cynoaolgus  monkeys  exposed  to  200  to  1,000  ppm  (520 
tc  2,600  mg  ■-»)  for  one  hour  (Ct  *  31,200  tc  156,000  mg  min  «r*)  suf¬ 
fered  permanent  deterioration  of  respiratory  function:  they  ha**  been  under 
chronic,  low-level  exposure  for  30  weeks. 
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We  have  here  a  case  unlike  any  previous  one  studied  for  the  and 
unfortunately  insufficient  data  to  support  reliable  estimates.  Che 
strongly  irritant  properties  are  not  unlike  those  of  NHj  or  HCl,  or  even 
of  CI21  and  the  persistent,  possibly  fatal  pneumonia  reminds  one  df  CI2. 
But  it  is  clearly  not  so  dangerous  as  CI2  in  doses  below  the  asphyxiating 
level. 

The  best  estimate  for  dose-response  is  that  it  is  similar  to  HCl. 
Thus,  the  probits  for  sulfur  dioxide  were  derived  assuming  dose-response 
is  identical  to  HCl  (in  mg  min  m"*J) . 


i 

1 
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t OWENS 

Toluene  is  a  liquid;  boiling  point,  110. 6°C;  %  in  "saturated"  air, 
3.94.  It  is  a  powerful  narcotic  and  a  central  nervous  system  depressant. 

Some  data  from  Patty  and  other  sources  are  shown  below: 

Minimum  for  given  effect  in  animal  experiment  (mice) 

Prostration  10,000  -  12,000  mg  m”s 

Death  30,000  -  45,000  mg  m"s  (No  times  given.] 


Rata »  18  days  of  4-hour  exposure 

4,700  mg  m~3  No  deaths 

15,000  ag  »*5  Deaths  (No  numbers  of  deaths.] 


Volunteers;  at  8  hours  unless  stated 


750  mg  a”* 
1,500  mg  »'s 
2,250  mg  m“s 

3,000  mg  a“s 


Mild  weakness,  paresthesia 
Same,  plus  mental  confusion 
Nausea,  dizziness,  staggering;  mental 
confusion  in  3  hours 
Incoordination  at  3  hours 


These  show  incapacitation  at  2,250  x  8  x  60  -  1,080,000  mg  min 
to  3,000  x  8  x  60  ■  1,440,000  mg  min  m“s. 


Rats  survived 

37,600  20  min  •  752,000  mg  min  m~5 

75,200  60  min  -  4,512,000  mg  min  m_1 

Rats 

18,750  *  150  min  -  2,812,500  mg  min  m~s  ware  completely  narcotised. 
Daily  exposure  (time?)  to  3,760  -  7,520  mg  m~*  caused  incapacitation, 

These  observations  can  be  compared  with  those  used  for  au.-r>  in  develop¬ 
ing  dose-response  for  carbon  tetrachloride.  Using  the  date  from  10-  to 
30-minute  exposures  only,  the  earlier  report  shows t 

Harassment  (dizziness,  etc.)  st  39,000  to  150,000  mg  min  m*1; 

Dangerous  at  436,000  to  8,190,000  mg  min  m 
Lethal  at  2,438,000  mg  min  *“*  and  up. 
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These  are  in  the  same  ballpark  as  the  toluene  data  and  the  two  chemicals 
are  somewhat  alike  (as  regards  acute  toxicity;  not  so  alike  £or  chronic 
exposure) .  He  believe  the  CTC  equation  is  adequate  for  toluene. 
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Appendix  0 

PROCEDURE  FILE,  PROGRAMS  AMD  JOBSTREAM 

FIGURE  D-l.  DISFTN 

FIGURE  D-2.  FIRDISP 

FIGURE  D-3.  EXPDISP 

FIGURE  D-4.  TOXDISP 

FIGURE  D-5.  CALPLOT 


FIGURE  D-6 


PLXIKFO 


OISFTN. 

IF (FILE(F.AS)*0)GET.F* 

REWIN0.F.LGO.LISTOUT • 

RFL  <60000  • 

FTN.I=F,L=LlSTOUT.OPTsO<B*LGO. 

1L0DE . IF (FILE (LGO, AS ) *0 ) GET ,LGC • 

ASCII. 

REWIND, LIST OUT, LGO. 

RETURN .NPFILE. 

MAP (OFF ) 

ATTACH. DIS=01SSPLA/UN=LI8RART. 

ATTACH. UNIPLOT /UNsLItiR ARY. 

RFl, 100000. 

LDSET (LlBsOlS/UNlPLOT) 

LGO. 

REWIND, NPF ILE • 

IF(FILE(TEKANS,AS)*0>GET.TEKANS. 

REWINO(TEKANS) 

CALLtUNIPROC«S=2POST<CEVl*TEK.lNPUT*TEKANS> 
RETURN. TAPE62.LIST. 

GOTO.PENO. 

EXIT. 

oayfile. 

G0T0.2EN0. 

4  0 1 4  X ♦ GO  TO.l INFO. 

4014R.GOT0.1INF0, 

401 OX. GOTO. 1  INFO. 

40 i or .goto* i info. 

4002X.60TO. I  INFO. 

4002R.GOT0.UNF0. 

1CALX, GOTO. 1  INFO, 

ICALR.GOTO.IINFO, 

1  INFO. GET. PLTINF0/UNSLI6RARY. 

COPYCF .PLT INFO, OUTPUT ,1.7.80. 

2EN0. RETURN, PLT INFO, CIS. 
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1020 

1000 

109+ 

1095 

1021 

1022 

102+ 

1023 

1025 

102+ 


1027 

1020 


1029 

1030 


PROGRAM  FIR0lSP<INPUT»0UTPUT»TAPES*INPUT»TAPE6«0UTPUT.TAPE9> 
DIMENSION  HEAD (2) *TITL(7)*TITL1(7) ,T1TL2(7) 

DIMENSION  XA (410). YA (+10). AX <30. 110>. AT (30. 110) .AVI <30. 110) 
DIMENSION  BX(600)  .BY  (000)  .BV1  (600)  .CELLIOI410) 

DIMENSION  IPK(SO) .IPKl <S0) .IPK2 (80) »NP(20) .PECNT (10) 

DIMENSION  M(+00) «XAA(+QO) .YAA(AOO) «M(6.5) *XAX(+00>.VAV(+00) 
DIMENSION  DX(AlO) *0Y (+10) »0Y1 (410) .ZA (210) .28(210) »Zbl (210) 
DIMENSION  LSTRNGI50) »LST (50) .LTV (BO) 

OAT A  NP/O. 0.0. 0.0. 0.0. 0.0. 0.0. 0.0. 0.0. 0*0. 0.0.0/ 

OATA  PECNT/1.0.2S. 0.50.0.75.0.99.0/ 

THIS  PROGRAM  IS  FOR  PLOTTING 

NP«3  FOR  PUFF  MODEL.  NP+5  FOR  PLUME  MODEL 

MDIRaO.O 

PRINT  1020 

FORMAT (•  WRITE  THE  PLOTTING  FILE  NAME*) 

READ (5*1 000 )AF1LE 
FORMAT (AO) 

PRINT  109A 

FORMAT (•  ENTER  THE  PLOT  TITLE  <<21  CHARS.)—*) 

REAO  (5.1095)  HEAO 
FORMAT  (2A10) 

PRINT  1021 

FORMAT (•  00  YOU  WANT  TO  CHANGE  THE  SPILL  LOCATION**) 

PRINT  1022 

FORMAT (•  ANSWER  1  FOR  YES.  0  FOR  NO*) 

REAO  ••  NA1 

IF (NA1  .EC.  0)00  TO  1023 
PRINT  1024 

FORMAT (•  WRITE  THE  CELL  NUMBER  WHERE  THE  SPILL  WILL  OCCUR.*) 

REAO  *.  NCELL 
PRINT  1025 

FORMAT (•  00  YOU  WANT  TO  CHANGE  THE  WlNO  OIRECTION  FROM  THE  ONE*) 
PRINT  1026 

FORMAT)*  WHICH  YOU  USED  TO  CALCULATE  THE  DATA**) 

PRINT  1022 
REAO  ••  NA2 

IF (NA2  .EQ*  01  GO  TO  1030 
PRINT  1027 

FORMAT (•  WRITE  THE  ANGLE  BETWEEN  X  AXIS  ANO  THE  *lNO  DIRECTION*) 
PRINT  1020 

FORMAT (•  IN  DECREE.  •  FOR  COUNTERCLOCKWISE.  •  FOR  CLOCKWISE*) 

READ  *.  «0(R 

WO IR*wO IR/S7 .2978 

WR I  YE  1 6 . 1 029 )  KCCU  .WO  tM 

FORMxrisx.t+.sx.Fe.a) 

CONTINUE 

CALL  PFSua(6HATTACH.5HTAPE9.AFlLE*0.0.0.9*UC.CS.EM) 

REwInO  9 


XCRT*0.0 
YMAXcO.B 
YdRT*0.8 
5  CONTINUE 

R£A0(9. 10O2INPLOY*ti» 12, x.y.E 
IF (EOF (9)) 35.30 
1902  format <3!3.2£ 12.4. a  tot 
30  IF  INPLOT  .£0.  200)60  TO  10 
IFiNPLOT  .EC.  1 1 00  TO  15 
iF(nmlot  ,ea.  3«oo  to  20 
IFINPLOT  .EO.  5)00  TO  25 
IFlNPLOT  .EO.  o  .OR.  NPLOT  ,60.  7)C0  TC  76 
IFINPLOT.  EO.  1991  |MUW«/|0eO« 

>F (NPLOT  .CO.  8  .OR.  NPLOT  .tu.  9)00  TC  76 
GO  TO  5 
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C  RE AC  TOXICITY. FLAMHABa.ITY.WlhO  SPEEQ .CONCENTRATION 

10  IT0X-11 

UWINO-X/IOO.O 
IFLN-I2 
CONCEN-Y 
GO  TO  S 

C  READ  CELL  CENTER 

IS  1*11 
NIKI 

XA(IKX*1000.0 
YA(t>-Y*lOOO.Q 
CELLlDtD-Z 
NP (NPLOT 1 -NPL0T 
60  TO  S 

C  REAO  PUFF  MODEL  DATA 

20  i«n 

J«I2 

AXd.JKX-1000.0 

AYU.4KYM000.0 

ayi(I»jk«y*iooo.q 

NI2«I 

NP (NPLOT > •NPLOT 

iF(tYtl.j)  »0T.  YMAX ) YMAX-AY ( I.  J) 

00  TO  5 

C  REAO  PLUME  MOOtL  DATA 

25  I>11 

axui-x-iooo.o 
BY  (IKY*  1000.0 
eYl(IK*V*1000«0 
NlA*t 

NPtNPLOTKNPLOT 

irtBXIU  ,GT.  XMAX)XMAX*BXm 

IF  (BY ( 1 1  .GT.  YMAxiVMAx-BYU) 

00  TO  5 

TO  NP (NPLOT 1 -NPLOT 

1F(NPL0T  .EO.  0  .OR.  NPLOT  .£0.  Tll-NPLQT*5 
IF  (NPLOT  .EO.  4  .OR.  NPLOT  .EO.  4ll*NPi0f«7 
4*11 

IONIO-I2 

RU.JKX-30S.0 

IF(RII.J)  .GT.  YORT>YOMT*R( 1.41 
00  TO  5 
35  CONTINUE 

IF(NCCLL  .EO.  0100  TO  SIT 
XCCN-XAKCCLL) 

YCEN-YA{NCELU 
51 T  CONTINUE 

IF(NCELL  .EO.  0  .AND.  «0IR  .EO.  O.OtOO  TO  5U 

00  513  t-l.NU 

IF (NCELL  .EO.  0100  TO  515 

XA ( 1 1 f I > 

YAdKYAdl-VCEN 
IFim'OIR  .CO.  0.0160  TO  513 
515  «A(  1 KXA ( II -COS (-0IR1  *YA( 1 1  »$lh (*0IRI 
Y  A  ( 1  K«X  A  ( 1 1  •$  IN  (NO  IR  K  YA 1 1 1  *COS  (NO  tR  1 
513  CONTINUE 
51 l  CONTINUE 
RCmINC  0 

IF  (NP  (31  .EO.  3lXMAX*AA(M2,l00l 
J*l 

00  42  KI.NII 

IFlXA(l)  .IT.  O.OICC  TU  42 
lF(ABS(VA(tl>  .CT.  VNAAIGO  TO  42 

IF  (ABSiiAIIl I.LT.B.B.OR.ABSIAAiIII .Ot.AMAA)  GOTO  44 
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*A*(j)«**(H 

YAA(J)aVA(I) 

NJaJ 

JaJ*l 

92  CONTINUE 

IF(XMAX  .LT.  99.0)60  TO  302 
IF(XMAX  .LT.  1000.0)00  TO  303 
IF (XNAX  .LT.  10000.0)60  TO  30* 

PRINT  3301 

3301  FORMAT (•  ttARMKO— MAXIMUM  OOMMMlNO  QISTANCE  EXCEECS  10  KM.*1 
GOTO  304 

302  XMAXaXMAX*$.0 
XLIMaAlM  (XMAX) 

XINC«XLIm/4.0 
00  TO  212 

303  XMAXaXMAX*50.0 
XLIMaXMAX-AMOC UMAX. 5*0) 

XINCaXLlM/4.0 

60  TO  212 

304  XMAXaXMAx *500.0 

XL  lMaXMAX-At»OC  (XMAX, 50.0) 

XlNCaXLlM/4.0 

212  1F(YMAX  ,LT.  10.0)00  TO  313 
IF (YMAX  ,LT.  100.0)60  TO  314 
IF (YMAX  .LT.  1000.0)60  TO  315 

313  YMAXaYMAX»O.S 
YLlMaYMAX-AMOOtYMAX.O.5) 

VlNCaYLlM/2.0 

00  TO  214 

314  VMAXaVMAX*S.O 
VLlMaAlhT(YHAX) 

Y lNCaYL IM/J.O 
60  TO  214 

315  YMAXaYMA«*S0.0 
YLIM#YMAX-AN0C(YMAX,5.W) 

YtNCaYL tM/2.0 

214  RSCAL*XLIM/12.0 
YSCALaVLIM/4.0 
VMtNa.YLtM 

MRiTt lo, io?9) xlim.ylim.vmih.xinc.yim: 

I0T9  FORMAT (5«,SF§. 2) 

CALL  UNIRLOT 

CALL  MACETU. 0,14.0) 

ENCODE (51, 1094, TtTD  Ht*C 

1096  FORMAT  (29H.Oi.tR  FLAMMaOLC  LIMIT  CURVE  ,2A|0,tM) 

IF INM(3)  .€0.  U  • ANC ,  MMSl  .CO.  0)60  TO  ?1 
CALL  T I TlE (TITl, *100*1 3**  OtSTANCE(M) . 

U3.I3MY  OtSTAACE(M).13,12.0,a.O) 

C  PLOT  LOaEB  LIMIT  FLAMNAMLC  CONCENTRATION 
46  CALL  6RAF(0..XlNC,ALlM,YMtN,YUe,VLtM) 

CALL  MARKER (1) 

CALL  6LMK|(3.4,t.SiT.3,«.3,l) 

CALL  CUBvE(RAA,VAA,MJ,-1) 

IFINj  .EC.  0)00  TO  Id 
J«1 

56  CONTINUE 

AXaXAAtJI-O.l 

WaVAAU) 

AtESaAAA | Jl-AAA ( J*1 I 
YfE$aYAA(JI>YAA(J>l) 

IF  (XTE5  .EO.  0.  .ANO.  TIES  .CO,  0.)  N»j»aW(J-U 
ENCODE (20*$«*U>»(Jl 
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58  FORMAT  (It*  .I3.1H5) 

CALL  RLMESS(U.IOO.XX.YY) 

IFU  .EO.NJJGO  TO  70 
IF (J  .07.  400)00  TO  70 
J«J*1 
00  TO  56 
70  CONTINUE 

iF(NPU)  .EC.  4)00  TO  40 
N‘JNP«1 

IF  (UNINO.  LE.  5.0)  NJNP»2. 

00  SO  I«2fNI2.NJMP 
J2»0 

00  52  J»l.lOl  . 

IF  (AXII.JI *LT.O.)  00  TO  52 
J2«J2*1 

0X(J2)»A* tl.J) 

OY I J2)*AY  C I  * J) 

OY1CJ2>«-OYCJ2) 

52  CONTINUE 

CAUL  CURVE (0S.0Y.J2.0) 

CALL  CURVEC0X.0YI.J2. 0) 

Kt»5*(l-1> 

encode t4o .2* .lst«nq) k i 

26  FORMAT! U.6H  SECSt) 

CALL  LINES (LSTflNO. IPX. )> 

XflOS*AX 1 1 .51 1 /XSCAL 

IF  (l.E0.S.0fl.l.CQ.l0.0R.I.e0.IS.QR.I.E0.20>  YPOSIHO. 
YPQS«4.0»A8SIAY(  I*51))/Y5CAL*YP051I 
YPOSII«YflOSlI**3 
CALL  STOPYlIPX.t.XPCS.YPOS) 
irtl  .EO.  Nl2)00  TO  54 
IF  j I  «0T.  25)00  TO  54 
50  CONTINUE 

46  CALL  CURVE (BX.6Y.NI4.0) 

CALL  CURVE (BX.tYl.NtA.O) 

54  ENCODE (40.60 *LST1U»IN0 
CALL  RESET  (SMiLMS) 

60  FORMAT (OhVlNO  VEL  .F5.2.5M  N/S6) 

CALL  L  IMS  (LST  *  IP* 1  *  1 ) 

CALL  ST0iY(IPX|»l.6*0*i»*0) 

CON*M3*COMCCM1 000  . 

ENCODE (00.64.L TV) CONAN J 
64  FORMAT  I (ONFlAMMAOLC  LIMIT  .EV.4.7N  kO/C*6) 

CALL  LlNESCLTV.IPK2.tt 
CALL  STORY! IP*2. 1.4. 0.7.6) 

CALL  ENOAU-D 
7)  CONTINUE 

C  THE  FOLLOWING  IS  FOR  PLOTTING  FIRE  OAMASE 
76  CONTINUE 

ENCCOEt50.1007.TtTH)  NSAO 
1007  FORMAT  1 1 ANF IRE  LETHALITY  .2A|0.1*6I 

encode iso.iooe.mL2i  mead 

1006  FORMAT  1 13NF IRE  INJURY  .2A|0.1M) 
irtVQRT  «Lt.  IOC.OIGO  TO  343 
IFtYORT  .Lf.  1060,0160  TC  34* 
lmCRT  .IT.  10006.0)00  to  345 

343  YORTMORT.5.0 
VTOP.AINT IVORT) 

00  TO  24| 

344  yCRT»yO«T*50.0 
YTOP«tCRT*am(  .jvCRT»5.vl 
00  TO  241 
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345  YORTaVORT *500.0 

YTOP»tORT-MOOtYORT.SO.O) 

24}  CONTINUE 
75  XC  >  XAC IGNIO) 

VC  a  Y4II0NI0) 

03  00  04  la}, 2 

1FCI.EQ.UCXU  TITLE ITITLI t“IOO» I3NX  OISTAMCECN* 
113.13HY  DISTANCE  CM I , 13, }2. 0*0.0) 

IF|1.E0.2*CALL  TlTLECTlTL2.-IOO.I3hX  DISTANCE  IN) 
I13.I3NY  DISTANCE <*>. 13,12,0, 0.0* 
iri!  .CO.  1*60  TO  37} 

IF!  I  ,EQ.  2)  GO  TO  372 
37}  YMAXaAINT(0.«0*VT0P) 

GO  TO  373 

372  YHAXaYTOR 

373  CONTINUE 

CALC  8LNK2(3,8»7.7,7*3*0.3.}) 

YlNCaYNAX/2,0 

(MAXa4.0*YNAX/3.0 

XtNCaXHAX/2.0 

YNINa-YHA* 

XMtNa-XNAX 

YSCACaYNAX/4.0 

HCdKNim.O 

-'•} 

00  215  Kal.NII 
XAX (K I  *XA  CIO-AC 
YAYCKtaVi CKI-YC 

IF CAtSIXAX  IK* )  »0T «  XH AX ) 09  TO  215 
IF  CADs (YAYCK  > I  .07.  VNAXtOO  TO  215 
«AA|j»aXAXtK) 

VAA(J)aVAV(Kl 
NCJIaK 
NJl  aj 
J«J»1 

215  CONTINUE 

CALL  CRAF (XNIN .XlNC.XHAA.VMtN.Y 1NC.VMAA I 

CALL  NARkCRtll 

CALL  CURVE (XAA.YAA, NO},-}} 

L»1 

116  CONTINUE 

(AaXAA IL>-0. I 
YYaYAAILI 

XTCSaXAAtU-XAAtL*)} 

YTE$aYAA(L)-VAA(L-}t 

IF  IXTCS.EO.O.  •OR.yTES.EQ.O.)  NiL>aM(L“}t 
ENCODE C 29 « *20 »U* NIL* 

120  FORNATlIf  •  13* It’ll 

CALL  RLRESSlU. IOO.XX, YY* 

IF  CL  .€0.  NJl >00  TO  |2T 
L»L*I 

IF C  L  .EC.  400*60  TO  127 
00  TO  I  IF 
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12?  CONTINUE 
XFOSM.Q 
00  100  J*1 «S 
01STa2*0*R(l«U 1/200.0 
2*U)  ■  -R<l*J> 

Z8(l»*0. 

zeiuxo. 

20(2011*0* 

201(2011*0. 

00  110  K«2«201 
ZA(Kt*2*(K-l)«01ST 
IF(2»(IO  *0T*  HII.JHOO  TO  112 
20(lO»SCRT (Rl l»j>**2  *  ZA(K>**2» 

28 1  <Kl  a  -20 «IO 
110  CONTINUE 

112  CAUL  CURVE IZA»2t*201»0J 
C*U  CURVE IZAtZ81«201tQ> 

KF05«.3*«I*0$ 

VROSaA.O  *  2S(100)/VSCAU 
ENC00I ( 30  *  1 1 4  »LS«  »RECNT  U> 

114  FORNAT (F$*l *3N  t  »IM» 

CALL  SCNRU 
CALL  LINES (LS0»1PR»1> 

CALL  STORtlI(M.lf»RO$.tlK!S> 

100  CONTINUE 

CALL  RESET (SNOLNRS) 

ENCODE  <  30  *A0  *L  S 1 1 U* INO 
CAvL  SlRPL* 

CALL  LlNfStLST  *IRM*11 
CALL  STORM  IRNl*l*4.0»#.0) 

ENCODE (S0*1?R*LTV»TN0 
l?e  FORMATIUNVAROK  h*«  a  .E0.3.AN  *011 
CALL  L»NE$<L*MIF*2*1> 

CALL  S»CBTllR*2*l»4.0.?.§) 

IF (I  .CO.  |)  CALU  ENQFLl-21 
IF  it  *E0.  21  CALL  t*0H<-3» 

•4  CONTINUE 
lt*0  CONTINUE 
CALL  DONE*. 

CKO 
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PROGRAM  EXPO  ISP ( INPUT  .OUTPUT  .TAPES* INPUT *TAPE6*0UTPUT*TAPE9) 
DIMENSION  HEAC(2).TITL(7>.TITH(7).TITL2(7> 

DIMENSION  XA  <405 ) .YA (405) .CELL ID (405) »ZA(210) .26(210) *281 (210) 
DIMENSION  NP (20) .PECNT ( 10 ) * YM (6) 

DIMENSION  IPX (SO) .1PK1 (SO) .IKP2 (80) .XAX (400)  .Y AY (400) 

DIMENSION  ISTRNG (SO ) ,LSB (50 ) .LTV (60 ) 

DIMENSION  M(400> .XAA(400> .YAA(400) ,R(6»5) 

data  np/o.q.o.o.o.o.q.o.o.o.o.q.o.o.o.o.o.o.s.o/ 

DATA  PECNT/1. 0.25. 0.50. 0.75. 0.99.0/ 

DATA  YM/0. 0.0. 0.0. 0.0. 0.0. 0.0.0/ 

C  THIS  PROGRAM  IS  FOR  PLOTTING 
C  NP*200  FOR  GENERAL  CATA.  »1  FOR  CELL  CENTER 
PRINT  1020 

1020  FORMAT (*  WRITE  THE  PLOTtlNG  FILE  NAME*) 

REA0(5.1000)AFILE 

1000  F0RMAT(A8) 

PRINT  1094 

1094  FORMAT (*  ENTER  THE  PLOT  TITLE  (<2l  CHARS.)—*) 

READ  (5.1095)  HEAO 

1095  FORMAT ( 2 A 1 0 ) 

PRINT  1021 

1021  FORMAT (*  00  YOU  WANT  TO  CHANGE  THE  EXPLOSION  LOCATION*  •) 

PRINT  1022 

1022  FORMAT (*  ANSWER  1  FOR  YES.  0  FOR  NO*) 

REAO  *.  NANI 

IF(NAN1  .EO.  0) GO  TO  1024 
PRINT  1023 

1023  FORMAT'*  WRITE  THE  CELL  NUMBER  WHERE  EXPLOSION  WILL  OCCUR*) 
REAO  *,  NCELL 

1024  CONTINUE 

CALL  PFSUB (6HATTACH.5HTAPE9.AFILE.O.O.O.O.UC.ES.EM) 

YMAXal.O 

REAO (9. 1001 )N.ITOX. IFLM.UwIND.CONCEN.TMQ 

1001  FORMAT (313. 3E 12. 5) 

TMG»TMG/1000.0 
UWINO*U WIND/100,0 

5  CONTINUE 

REAO(9.1002)NPLOT.I1.I2.X.Y«2 
IF (EOF (9) ) 45.30 

1002  FORMAT (3I3.2E12.5.A10) 

30  IFINPLOT  .EO.  200)00  TO  10 
IF(NPL0T  .EQ.  DGO  TO  15 
IF (NPLQT  .EQ.  14 ) GO  TO  20 

IF (NPLOT  .EO.  15>G0  TO  25 

IF(NPLOT  .EG.  16 > GO  TO  28 

IF(NPL0T  .EQ.  17)00  TO  31 

IF (NPLOT  .EO.  18)00  TO  35 

IF(NPL0T  .EQ.  19)G0  TO  36 

IF  (NPLOT.  EO.  199)  TM0*Y*.00l 
GO  TO  5 

C  REAO  TOXCITY.FLAMMA6lLITY.wINO  SPEED.  CONCENTRATION 

10  ITOX«I 1 
IFLM«12 
C0NCEN*Y 
GO  TO  5 

C  READ  CELLS 

15  I-Il 
N 1 1  ■  I 

XA ( I ) »X*1000.0 
YA(I)«Y*1000.0 
C£LLlD(I)*Z 
NP (NPLOT )«NPLOT 
GO  TO  S 
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C  NPL0T*14  FOR  IMPACT  DEATH 

20  I*NPLOT  -  13 
J«I1 

IGN1C-I2 
R(I»J)«X*1000.0 
NP  (NPLOT )  *NPLO  T 

IF  (R  (  itj)  .GT.  T*KI!)YHm««(Uj) 

GO  TO  5 

C  NPLOT  «15  FOR  IMPACT  INJURY 

25  I-NPUOT-13 
J«I1 

IGNID«I2 
R ( I » J) »X*1000 .0 

IF  !R( 1 1 J)  .GT.  YM<inVN(I)«RU«J> 

NP (NPLOT) »NPLOT 
GO  TO  5 

C  NPL0T»16  FOR  FLYING  SEGAMENT  INJURY 
28  NP (NPLOT >*NPLOT 
. I«NPL0T-13 
J«I1 

IGN 10*12 
R(I*J)«X«1000.0 

!F  (R  ( I  .  J)  ,GT.  YM(1))YN(I)*R(1«J) 

60  TO  5 

C  NPLOT* 17  FOR  PEAK  OVERPRESSURE  DEATH 
31  NP ( NP  L  OT ) aNPLO T 
I*NPL0T-13 
J»I1 

IGNID»12 
R ( 1  * J) «X» 1600 .0 

IF(RU.J)  .or.  YM  ( I) )  VM(  l)«R(  li  J) 

GO  TO  5 

C  NPL0T«18  FOR  PEAK  OVERPRESSURE  INJURY 

35  NP (NPLOT ) *NPLOT 
IaNPLOT-13 
Jail 

IGNI0*I2 

R(I.J)aX»1000.0 

IF  (R ( I » J)  .GT.  YM(l))Yh(I)aR(I*j) 

00  TO  5 

C  NPLOTal?  PQR  STRUCTURE  OARAGE 

38  NP(NPLOTI*NPLOT 
UNPLOT-13 
Jail 

IGNlOa(2 

R(Itj)aX«1000.0 

IFtR(t.j)  .GT.  YRU))VR(I)bRU.J» 

GO  TO  5 
«5  CONTINUE 

VRAXaAHAXl(YR(|)»YR(2).VR(3)»YR(4)tVM(S)*VM<6)) 

YGRTaYRAX 

PEmINO  s 

IF ( YRAX  .LT.  100.0)60  TO  332 
IF (YRAX  ,LT.  1000.0)60  TC  33J 
IF  (YRAX  .LT.  10000.0)00  TO  334 
332  VRAX*YMAX*S.O 
VRAXaA  INK  YRAX) 

GO  TO  24 | 

J33  YHAXaYRA* *50.0 

YMAX.YMAH-AMOCi YRAX, 5.0) 

GO  TO  241 
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334  YMAX«YMAX*500.0 

YMAX»YMAx-AMOC lYMAX.SO .0 ) 

241  CONTINUE 

IF (NANI  .EQc  0)60  TO  731 
XC»XA (NCELL) 

YC*YA  (NCELL) 

Ou  TO  732 

731  CONTINUE 
XC“XA ( IONIO) 

>'C«YA  ( IONlO) 

732  CONTINUE 
03  CONTINUE 

CALL  UNIPLOT 
CALL  PAGEtll. 0.14.0) 

ENCODE (SO. 1096* TITL)  HEAD 

1096  FORMAT I25N0EATH  FROM  OVERPRESSURE  .2A10.1MS) 
ENCOOE(S0.1O97#TITLl)NSAC 

1097  FORMAT (26N IN  JURY  FROM  OVERPRESSURE  *2A10*1HS> 

ENCOOE (50*1098tTITL2)HCAC 

1098  FORMAT (18MSTRUCTURE  DAMAGE  .2A10.1MS1 
00  SO  144*6 

IF ( I.EQ.l ) CALL  TITLE (16H0EATH  FROM  INPACTS.-100* 13NA  DISTANCE (M). 
U3.I3HY  DISTANCE (M) *13.12.0*6.01 

IFU.E0.2ICALL  TITLE  1 19HINJURY  FROM  1MPACTS.-100.13MX  OISTANCb(M). 
113*13HV  DISTANCE  00*13*12 .0*8.0) 

IF ( I.E0.31CALL  TITLE (29HIN3URY  FROM  FLYING  FRAGEM6NTS*-100* 

113NX  OISTANCE (M) • 13* 1 SHY  OISTANCE (Ml ,13*12.0*8.0) 

IF (I. CO .4) CALL  TITLEITITL,-100.  ‘ 

113HX  OISTANCE (M) *13*l3hY  OISTANCE (M) *13*12.0.8.0) 

IFU.EO.SJCALL  TITLE  (TITH. “100. 

113MX  OISTANCE (M) *13, 13MY  CISTANCE(M). 13*12, 0.8.0? 

IF ( I. CO. 6> CALL  TITLE  fTITL2.-100.13MX  OISTANCEIM). 

113.13HY  OISTANCEIM). U.12. 0*3.0) 

RAT»IYM(t)/YMAX)  ♦  0.1 
IF (RAT  .GT.  1.0)RAT«1.0 
RAT*A1NT ( 10.0*RAT 1/10.0 
CALL  8LNK1 (3*4*8»O*T*8*8»3*0) 

YTOP«YMAX*RAT 
YINC«YT0P/2.0 
XMAX«4.0*YT0P/3.0 
X INC*XMAX/2.0 

ymin»-ytop 

XMIN»-XMAX 

XSCAL«XMAX/6.0 

YSCAL«VTOP/4.0 

NJ«0 

j»i 

00  216  Ral.NIl 
XAAIKlaXA IK)«XC 
YAY(K)«YAIK)»YC 

IF tABSIXAXIK) )  .GT.  xmax ) GO  TO  216 
IF (AGSIYAYIK) )  .GT.  YTOP)GO  TO  216 
XAA(J)aXAXIK) 

YAA(J)«VAY(K) 

M( J)«K 

NJ»J 

J«J*1 

216  CONTINUE 

CALL  0RAF1XM1N*X1NC,AMAX*YNIN*YINC*YT0P) 

cau  marker  id 

CALL  CURVE IXAA.YAA.N j»»l ) 

IFINJ  .EO.  0)60  TO  127 
L*1 
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116  CONTINUE 

XX«XAA(L)«0.1 

YY«YAA<L) 

XT£S«XAAtU-X*A(L-l) 

YTES«YAAtL)-VAA<L-l)> 

If  lXTES.EG.O.  .AND.  YTES.EO.O.)  HlL»«P<t-U 
ENCOOE  120»12<J*U)HtL) 

120  fORNATdh  *I3»lhA) 

CALL  RLMESSH1*100*XX#YY) 

If  (L  .EO.  N«J)GQ  TO  127 
L«L*l 

If (L  .OT.  *00)00  TO  127 
00  TO  116 
127  CONTINUE 
XP0S«3.6 
00  100  J-l.S 
OX«2«0*R ( l*J)/200»0 
ZAd>»*R<I«J> 

2B(l)i*0. 

Z81 (1 )*0. 

2B<?0D»ft. 

ZB1 <201 J*Q. 

DO  110  K«2.2Ql 
ZA<K)«2A1K-1)*0* 

If  12A (K)  .CT.  R<I*J)>QO  TO  112 
28  IK  I «$ORf  UM 1 ♦ J ) **2-2*  «K ) **2> 

2Bl«K)»-ZB<Ki 
110  CONTINUE 

112  CAL'.  CURVE *.2A»2B .201*0) 

CAL  CURVE (2**ZB 1*20 2 »0> 

*PUS«.5*XP0$ 

CAUL  SCMPLX 

VP05**.0«2Bd90>/VSC*L 
r.HC0CE130»tl*«LS8)PECNT  t J> 

11*  fCRMT  JFE.’ »3f  %  *3N  «•> 

CALL  H.»ES(LSB»1PK*1) 

CALL  STORY (IPK.UXPOS*YPCS> 

100  CONTINUE 
CALL  5imx 
CALL  RESE’IBHBLNM) 
rNCu0t<B0»55*LTV)TMG 

55  FORMAT dONNAS”  EXPLODES)  *  »E0»3**N  KGO) 

CALL  LINES (LTV ttf  2*1) 

CLLL  STORY 1IPK2. 1***0 #6*0) 

Ifd  *E0«  1)  CALL  EnOPU’H 
Ifd  .£0.  2)  CALL  f.N3PL<"2) 

Ifd  .EC.  3 ) CALL  ENOPLC-3) 

Ifd  .10.  * ) CALL  ENCPL1-*) 

Ifd  «EQ.  5 > CALL  tNCPU-S) 
trd  «fs.  6) call  encpli-6) 

SO  CONTINUE 
3000  CONTINUE 

CALL  OONEPL 
END 
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PROGRAM  TORO I SP  < INPUT .OUTPUT  »  T APES* INPUT t T APE6*0UTFUT • T APE9 ) 
OIMENSION  XA(410> tVA (410) , AX (30*103) »AY (30*103) *AY1 (30*103) 
DIMENSION  HE AC (2)  .TITU7)  .TITL1  (7) .TITL2(7) 

DIMENSION  BX (601 ) *8Y (601) »6Y1 (601) (CELL ID (410) 

DIMENSION  NP(20) .M(400)»NK(2*20> *R(3*10) »PECNT(10) 

DIMENSION  XAAI400) *YAA (400) «DX(110) *0Y(119) *0Y1 (110) 

DIMENSION  CX(2*S*300) »CY (2*5*300 ) *CY1 (2*5*300) 

DIMENSION  XCI400) *YC(400> *YC1 (400) *XQR(3) *VGR(3) 

DIMENSION  LSTRNC(53>*LST(S0)*LTV(60) 

DIMENSION  IPR(SO)«IPK1(SO)«IPK2(60) 

OATA  NP/0*0*0*0*0«0*0«0*0*0*0*0*0*0»0»0*0»0*0»0/ 

OATA  NI1/400/»NI2/15/.NI4/400/ 

OATA  NJ/0/.NJ1/0/ 

OATA  I0RAW/O/ 

OATA  PECNT/1 *00*25. 0tS0*0«7S.0*99*0/ 

C  THIS  PROGRAM  IS  FOR  PLOTTING  TOXIC  CASUALTY 
WRITE (6*1003) 

1003  FORMAT (•  WRITE  THE  PLOTTING  OATA  FILE  NAME*) 

NP-20O  FOR  GENERAL  CATA*  -1  FOR  CELL  CENTER 
NP»2  FOR  PUFF  TOXIC*  >4  FOR  PLUME  TOXIC 
READ ($• 1000) AFILE 

1000  FORMAT (AA) 

PRINT  1? 14  . 

1004  FORMAT)*  ENTER  THE  PLOT  TITLE  («2i  CHARS.)—*) 

READ  (5*1005)  HE AO 

1005  FORMAT (2A10) 

WRITE(0«1004) 

1004  FORMAT (•  00  YOU  WANT  TO  CHANGE  THE  SPILL  LOCATION**) 

WRITE (0*1005) 

1005  FORMAT (•  ANSWER  1  FOR  YES.  0  FOR  NO*) 

RE AO  ••  NANS1 

IF (NANS1  .EQ*  0)00  TO  002 
WRITE (0*1007) 

1007  FORMAT («  WRITE  THE  CELL  NUMBER  WHERE  THE  SPILL  WILL  OCCUR*) 

RE AO  *.  NCELL 
002  WR!TC(6«1Q00> 

1000  FORMAT)*  00  YOU  WANT  TO  CHANCE  THE  WlNO  DIRECTION  FhOM  THE  ONE*) 
PRINT  1015 

1015  FORMAT (•  WHICH  YOU  USED  TO  CALCULATE  THE  PLOTTING  OATA**) 

WRITE (0*1005) 

READ  •«  NAN52 

IFINANS2  .EQ.  Q)QO  TO  W03 

WRITE (6*1011) 

1011  FORMAT)*  WRITS  THE  ANGLE  BETWEEN  X-AXIS  AND  WlNO  CINCCTION*) 
WRtT€(6»lOI2) 

1012  FORMAT (•  IN  OEGREE*  COUNTERCLOCKWISE  IS  »*  aOCKWlSE  IS  -*> 

READ  *.  WOIR 

WD IR*wO lR/57  *2070 
003  CONTINUE 

CALL  PFSue(OHArTACH»SHrAPC9*AFILE»0.0»0*0«UC»ES*EM) 

RE WlNO  0 
I«l 

X0RT*0»0 
YORT*. 00005 
YMAX*. 00005 

READ  (0*1001 )N.IT08.1FLM.LWINO*CONCEN*TMO 
loot  F0RMAT(3I3.3E12*4) 

CONCCN.CONCEN/ 1000.0 
TN0*TMC/ 1000.0 
UWINO*UWINO/ 100.0 

WRITE (6. 1001 )N. ITOX.lFLM.UWlNO.CONCCN.TNO 
5  CONTINUE 

READ (9. lO02INPLOT.il *12. x.V.2 
IF (EOF (9)) 35*30 
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1002  FORMAT(3I3»2E12.4.AIO) 

30  IF (NPLOT  .£Q.  200)00  TO  10 
IF  INPUT  .E0.  1)  GO  TO  18 

IF (NPLOT  .EO.  2)60  TO  20 

IF (NPLOT  .EQ.  4)60  TO  25 

IF (NPLOT  .EQ.  10  .OR.  NPLOT  .CO.  11)60  TO  12S 

IF (NPLOT  .EO.  12  .OR.  NPLOT  .EO.  13)60  TO  126 

IF  (NPLOT  .EO.  190)  THG-X/1000. 

00  TO  5 

C  REAO  TOXICITY .FL ANNAS IL IT Y  »N IM3  SPEEO  AND  CONCENTRATION 
10  IT0X«I1 
IFLH-I2 

uuino>x/ioo.o 
concen»y 
GO  TO  S 

C  REAO  CELL 

15  I>I1 
NI1-I 
XA(l)aX 
YA(I)«Y 
CELL!0(I»2 
NP(NPLOT)»NPLOT 
60  TO  S 

C  REAO  PUFF  OATA 

20  !•!! 

J«I2 

AX(I.J>*X 
AV(I.J)»Y 
AY1 (I.J)a-Y 
NI2*1 

NP (NPLOT )«NPLOT 

IF (V  *0T.  YMAX)YNAX«Y 

GO  TO  5 

C  REAO  PLUPE  OATA 

25  I>!1 
exd)»x 
0Y(I)-Y 

BY1(I)«-Y  •  • 

NI4»I 

NP  (NPLOT) -NPLOT 

IF (Y  .OT.  YPA*)YNAX«Y 

00  TO  5 

C  REAO  PLUME  OATA 

125  NP (NPLOT )«NPLOT 
I«NPL0T-9 

j»n 

K*12 

NK(I.J)«K 
CX(I*J.K)«X 
CV ( I.J.N )-Y 

IF(Y  ,6T,  YORT)YOR(I)»Y 
IF (X  .GT.  XCRT)XOfi(I)«X 
YQRT«Y6R ( 1) 

XGRTaXOR(I) 

I OR Am* I 
00  TO  5 

126  NP (NPLOT) .NPLOT 
I.NPLOT-ll 
J»U 

K«t2 

NK(I»J)«K 
CX(I»J«K|.X 
CY ( I. J»X )»Y 

1F(Y  .OT.  YORT)YGR(t).Y 
IF (X  .GT.  X0RT)X6R(lt>A 
YOPT.YOR(I) 

XORT-XOR(I) 

IDRAteM 
00  TO  5 
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35  CONTINUE 

Ir  (NCELL  .EQ.  0)00  TO  51? 

XCENaXA (NCELL) 

YCEN»YA  (NCELL) 

517  CONTINUE 

IE (NCELL  .EQ.  0  .ANQ.  wOlR  .EQ*  0.0)00  TO  511 

DO  513  I«1«N11 

IE (NCELL  .EQ.  0)00  TO  515 

XA ( I )  «XA ( I ) »XCEN 

YA(I)aYA(l)-YCEN 

515  XA(I)aXA(I)*COS(WOIR)  ♦  YA(I)*SIN(W01R) 

YA ( I ) a-XA ( I ) «S IN (WO IR )  *  YA ( I ) *COS (wOIR) 

513  CONTINUE  , 

511  CONTINUE 

WRITE  (6.1089>Ml.NI2,Nl4.NK(l> 

1089  F0RMAT(5X.*NCELLS»*«U.«  NPUFE  CVS«*.I4,4  NPLU  CVS***U»*  NK«*.l4> 
REWIND  9 
HK«NK ( 1 ) 

IE(NP(2)  .EQ.  2) XMAX* AX (N 12. 100) 

IE(NP(4)  .EQ.  4) XMAX«0X (N{4) 

J»1 

00  92  I>1.NU 

IE (XA ( I )  .LT.  0.0)00  TO  92 

IE  (NP(2)  .EQ.  2  .AND.  AbS(YA(D)  .GT .  Y  MAX)  00  TO  92 

IF (NP ( A )  .EQ.  4  .AND.  ABS (YA(I) )  .01.  YHAX)GO  TO  92 

IE ( (NP(2>  «EQ.2.0R.NP(A) .EQ.A) «AND.XA( I) .GT.XMAX)  OC  TO  92 

M(  J)»I 

XAA(J)aXA(l) 

YAA(J)*VA(X) 

NJ»J 

J«J*1 

92  CONTINUE 

IE (XMAX  .LT.  1.0)00  TO  302 
IE ( XMAX  .LT.  10.0)00  TO  303 
IE(XNAX  .LT.  100.0)00  TQ  304 
IF ( XMAX  .LT.  1000.0)00  TO  305 

302  KM AX aXN Ax *0.05 
XLIM»XMAX-AMOO (XMAX. 0.05) 

XlNCaXLlN/4,0 

00  TO  212 

303  XMAXaXMAX*0.5 
XLlMaXNAX-ANOO (XMAX. 0.5) 

XlNC>XL tM/4.0 

GO  TO  212 

304  XMAXaXMAX«5  0 
XLIMaAlNT (XMAX) 

X1NC*XL lM/4.0 
00  TO  212 

305  XMAXaXMAx*50*0 
XLtMaXNAX-AMOC(XMAX.S.O) 

XtNCaXLlM/4.0 

212  lFtYHAX  .LT.  0.1)00  TO  312 
IF (YMAX  .LT.  1.0)00  TO  313 
IE IYMAX  .LT.  10.0)00  TO  314 

312  VMAXayMAl. 0.005 
VLtMaVMAX-AMOC(YMAX .0.005) 

YlNCaYLU/2.0 

00  TO  214 

313  YHAXaYMAX .0.05 

YL iMaYMAX- A«OU ( YMAX.O .05) 

YINCaYLl**E2.0 
00  TO  2(4 
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314  YMAX»YMAX»0.5 

YLIM»YMAx-AHOC (YMAX.0.5) 

YlNC«VLlM/2.0 
214  XSCAL»XLIM/12.0 
YSCAL-YLIM/4.0 
YMIN»-YLIM 

WRITE  (6*1079)  XLIM*YLIM.YHIN.XINC»YINC 
1079  FORMAT (5X.5F8. 2) 

CALL  UNIPLOT 

CALL  PAGE <11. 0*14.0) 

ENCOOE (50*1 096 tTITL)  ME AC 
1090  FORMAT (24MT0XIC  IRRITATION  CURVE  *2Aie*lM»> 
ENCODE (50*1097*TITL1)  MEAO 

1097  FORMAT (14MT0XIC  OEATH  «2A10*1MS) 

ENCODE (50*1098. TITL2)  MEAO 

1098  FORMAT (1SHT0XIC  INJURY  *2A10*)H8) 

40  CALL  T!TlE(TITL*-100.14HX  0 1 STANCE (ICN )  , 

H4.14HY  DlSTANCE(KM) *14*12.0*8.0) 

CALL  0RAF(0.iX1KC*XL1M*YMIN»YINC»VLIM) 

CALL  MARKER!  1) 

CALL  8LNK1 (3 .8*8. 4*7.0 *6. 3*1) 

CALL  CURVE(XAA«YAA.NJ*>1) 

IFtNJ  .EQ.  0)00  TO  70 
J*1 

56  CONTINUE 

XXaXAA ( J ) —  0 . 1 
YY*YAA(J) 

XTES»XAA {J)-XAa(J-I) 

YTE5«YAA<J)-YAA<J-1) 

IF  (XTES  .EQ.  0.  .AND.  YTES  .EQ.  O.)  N(J)«M(J-1> 
ENCODE (20 *58 «U)M (J) 

58  FORMAT (1M  «13«1M<) 

CALL  RLMES5 (U* 100.XX* YY) 

IF (J  .SQ.  NJLGO  TO  70 
J*J*1 

IF (J  .QT,  400)00  TO  70 
GO  TO  56 
70  CONTINUE 

IF (NP (4 )  .EQ.  4)G0  TO  *6 


a  wrintwim 


NJMPa) 

IF  (UWINO.  L£.  5.0)  NJMP-2 
CO  50  I»2*N12.NJMP 
JJ»0 

00  80  J«1*101 
IF(AX(I*j).LE.O.)  GOTO  80 

IF(A8S(AY(1*J)).CT.YMAX.0R.AX(I*J).0T*»MAX)  GOTO  80 
JJaJJ.l 

OX ( JJ) «AX (1 « J) 

OY(JJ)«AY(I.J) 

DYKJJ)M-OV(JJ) 

80  CONTINUE 

CALL  CURVE (0X.0Y*JJ*0> 

CALL  CURVE (OXiOYl • JJ*0) 

KI»5«(I-l) 

ENCODE (40  *20*LSTRNG)K I 
26  FORMAT (I3*6M  MINSS) 

CALL  LtNES(LSTRNG.IPK.t) 

XPO$«AX(l*5|)FX5CAL 
YP05«4.0»AY (1*51) /YSCAL.YPOSl l 
YP0S1 I*YPO$t l *0.3 
CALL  ^STORY ( IPX . I .XPOS. YPC5) 

IF (I  «C0.  NI2)G0  TO  54 
IF(1  .tit.  25)00  TO  34 

IF  (I  .CO  .S.OR.i.EQ.tO.OR.l.Eu.lS.OA. I .CQ.20)  VPOSIUi). 
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50  CONTINUE 

40  CALL  CURVE (8X*6Y»NI4*0) 

CALL  CURVE (8X*BY1«NI4.0) 

54  £NCO0E(50»60.LST)U*INO 
CALL  RESET  (5HBLNKS) 

60  FORMAT (9HWIN0  VEL  .F5.2.5H  M/S*) 

CALL  LINES (LST.IPKl.l) 

CALL  STORY (IPK1* 1*4. 0*6.0) 

CONCEN«CONCEN«1000. 

ENCOOE (60 *62 «LTV ) CONCEN 

62  FORMATtZlHLTV  FOR  IRRITATION  •  *E9.3»6h  G/CCS) 

CALL  LINES  (LTV *IPK2*1) 

CALL  STORY  (IPK2* 1*4. 0*7.6) 

ENCODE (60*64«LTV)TM0 
64  FORMAT (13HVAP0R  MASS  ■  *E9.3*4H  KQ*} 

CALL  LINES (LTV*IPK2* I ) 

CALL  STORY (IPK2*1 *4*0 *?«2) 

CALL  ENDPL(-l) 

71  CONTINUE 

TME  FOLLOWING  IS  FOR  PLOTTING  TOXIC  CASUALTLY 
NP«10  PLUME  TOXIC  DEATH*  NP»U  PLUME  TOXIC  INJURY 
N*i2  PUFF  TOXIC  DEATH.  N*I3  PUFF  TOXIC  INJURY 
IF  (IDRAfc  ,E0,  0)  GOTO  3000 
131  00  1100  1*1 *2 

IF ( I  .EC.  1 ) CALL  TITLE(T1TL1«-100*14HX  DISTANCE (KM) 
114.14HY  0ISTANCE(KM)«U«  12.0*6.0) 

IF ( I  .EO.  2)CALL  TITLE(TITL2*-100*14MX  DISTANCE (KM) 
114»14HY  OISTANCE(KM) *14*12.0*6.0) 

XGRTaXGR(I) 

YGRTaYQfl(t) 

IF (XGRT  ,LT.  10.0>G0  TO  322 
IF (XGRT  .LT.  100*0)60  TO  323 
IF (XGRT  .LT.  1000.0)60  TO  324 

322  XGRT  •XGRT*0,5 
XT0P«XGRT*AM0QUGRT*0.$) 

X0EL«XT0P/4.0 

GO  TO  222 

323  XGRT-XGRT*S.O 
XTOPaAINT (XGRT) 

X0ELMT0P/4.0 
GO  TO  222 

324  XGRT*XCRT*50.0 
XTOP»XORT*AMOO (XGRT *5.0) 

XDCL«XTOP/4,0 

222  IF (YGRT  .LT.  0.1)00  TO  332 
IFlYORT  .LT.  1.0) GO  TO  333 
IF (YORT  .LT.  10.O)GO  TO  334 
IFtvQRT  .LT.  100.0)00  TO  335 

332  YQRT»VGRT» .005 
YTOP-YORT-AMOO ( YORT • .005) 

Y0EL«YTCP/2.0 

GO  TO  224 

333  YGPT»YCRT*0.05 
YTOP«Y(i»T-AMOC(  YGRT,  0.05) 

YOEL-VTCP/2.0 

00  TO  224 
33*  YGRT»V6RT*0.S 

YTOP»YGRT-AhOD(YCRT.O.S) 

Y0EL-YTCP/2.0 
00  TO  224 
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335  YGRTaYGRT*5«0 
YT0P«AINT (YGRT) 

YOEL*VTOP/2.0 
224  XSCAL*XT0P/12.0 
YSCAL-YT0P/4.0 
Y0OT«-YTOP 

WRITE (6,1079) XTOP.YTOP.YeGT.AOEL.YOEL 
L-l 

00  402  Jal.NIl 
XAA(J)«0.0 
VAA(J)«0.O 
402  CONTINUE 

00  404  Jal.NIl 

IF (XA (J)  .LT.  0.0  .OR.  XA ( J)  .GT.  XGRT160  TO  404 

IF (ABS tYA( J) )  .GT*  YGRTIGO  TO  404 

MIL)aJ 

XAA (L ) *XA ( J) 

YAA(L)*VA(J) 

NJ*L 

L«L*i 

404  CONTINUE 

CAU  GRAF (O.O.XCEL.XTOP.Y90T.YCEL.YTOP) 

CAU  MARKER  U> 

CALL  8LNK2I3. 0.7.0. 7.4.0. 3.D 
CALL  CURvE(XAA.YAA.NUfl) 

IFtNJ  .EQ.  0)G0  TO  171 
L*1 

140  CONTINUE 

XXaXAA  tL>  *.l 
YYaYAA(L) 

XTESaXAAtL)-XAAtL-l) 

VTE5«YAA(U-YAAtL*l) 

IF  (XTES.EQ.O.  .ANO.YTES.EO.O.)  M(L>«N(L-l) 
ENCODE (20. 142 *U) MIL) 

142  FORMAT  1 1H  .13. INI) 

CALL  RLMES5tU.l00.XX.YY) 

IF tL  .CO.  NJ)GO  TO  171 
L"L»1 

IF (L  .GT.  400)00  TO  171 
GO  TO  140 
171  CONTINUE 
KJal 

00  1105  jal.5 

IF  |J.  EC.  2  .OR.  J  .€0.  4)  GOTO  1105 

YCMal .01-5 

XCMaO.O 

KNaNKtl.J) 

00  1110  Kal.KN 
XC (K)*CX ( I  *  J.KI 
YC(K)aCYtl.J.K) 

YCl(K)a.vCtft) 

IFtYCtK)  .GT.  YCM)GO  TO  207 
GO  TO  1110 
207  YtHaYCtK) 

XCMaXClK) 

KJ«K 

1110  CONTINUE 

CALL  CURVE (XC.VC.KN.O) 

CALL  CURVEtXC.YCl.MN.OI 
ENCODE  <50.200. LSTtPECNf Ij) 
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209  F0RMAT(F5.1.3X  %  *W*S» 

CALL  SCMPLX 

CALL  LINES (LST.IPKl.l) 

XP0S»XCM/XSCAL 

YP0S«4.0*YCM/YSCAL 

CALL  STORY ( I PN 1 « l • XPOS  t  YPOS ) 

1105  CONTINUE 

CALL  RESET (5N8LNKS) 

CALL  S1MPLX 
ENCODE  (60 .68  .LTV  HIM  1N0 
Oft  FORMAT t l INN INO  VCL  >  .F5.2.5H  M/51) 
CALL  LINESILTV.IPK2.1) 

CALL  STORY (IPK2* 1.4. O.O.O) 

ENCOOE tOO  >0?*LTV)TM0 
07  FORMAT (13HVAP0R  MASS  •  .E9.3.4N  SOS) 
CALL  LINES (LTV. IPK2.I) 

CALL  STORY ( IPK2* 1*4.0 *7.6) 

144  IF  (I  .CQ.  1 )  CALL  ENCPLC2) 

!F(!  .60.  2)CAcL  6NCPLI-3) 

1100  CONTINUE 
3000  CONTINUE 

WRITE  (0.3002)  I OR Aw 
3002  FORMAT (/•  I DRAW*  *t!2> 

CALL  OOKERL 
END 
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?9/'0^-'l£.  12.42.53 
PROGRAM  CRLPLOT 


:^jdb 

CPI  PLOT*  T30*PP. 

U'EPC. 

PROJECT  > « 

COPYBF*  *PLDTF. 

ROUTE  CPLOTF. DC=PR*  UN«PLDTTDC> 
✓FOR 

.-'PFflT>«PI  TTNFH 

-'EOF 

'NOSEO 

✓NOPACK 

.'TRANS 

/RFATWPl  OTF 

/EOF 

READY . 
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?9/06/ia.  IS. 43, 51. 
PROGRAM  PUT INFO 


PtOTTNFQ 


CUSTOMER  NAME*  U.S.  COAST  GUARD 

initiator*  B*  rrticolr/eci 

PHONE* 

PRIORITY.  REF 

PAPER  TYPE*  PLAIN 

PAPER  R1?F«  11 

NUMBER  OF  PENS*  t 

PEN  1*  BLACK* INK 

BEL  I VERY  INSTRUCTION*  HOLD 


PLOTENIi 

REPPV. 


FIGURE  0-6.  PLTIKFO 
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